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EDITORIAL 


THIS MONTH'S MAGAZINE 

The first add-on for the Electron from Acorn, called the Plus 1, is now available 
and we have managed to obtain one in time to include a review of this important 
development in this issue of ELBUG. As a consequence, we have had to postpone our 
review of TV/monitors to the next issue. This first add-on from Acorn is clearly an 
important event for Electron owners, and there may be more to come from Acorn in the 
future. 


Cassettes are a cheap way of storing all your programs and other files, but 
keeping track of everything can be difficult. This is where the Tape Indexer in this 
issue will really come in handy. It will not only provide you with a list of all the 
programs on each of your cassettes, but it will also work out automatically the 
counter setting at the start of each program for faster access. We shall be covering 
some of the more general problems associated with cassette usage in the next issue 
of ELBUG magazine. 


One of the subjects that occurs frequently in reader's letters is that of 
locating errors in programs. It is only too easy when typing in a long listing to 
introduce unnoticed errors which then subsequently prove difficult to find and 
correct. In the very first issue of ELBUG we published a short article describing 
the guidelines that we follow in preparing programs for publication, and we also 
gave a number of hints to help you along the way. Clearly the debugging of programs 
can be a difficult and time-consuming task and so we are publishing an article, in 
two parts, to provide you with further help and advice on this subject. This 
information can be just as useful, of course, for debugging your own programs as 
well as those typed in from magazine listings. 


Games again feature strongly in this isuue with a version of the classic 
"Breakout' game, an excellent screen display of 'Pontoon', and a very original game 
that we have entitled 'Flowers of Hell', featured on this month's front cover. In 
addition to these we have also included a short fun program for disco addicts under 
the heading of ‘Electron Night Fever’. 


CONTRIBUTIONS 

We rely to some extent for the articles and programs that we publish in ELBUG on 
contributions sent in by our readers. If you have written any good games or other 
programs that you think would be of interest to other readers then we would be 
pleased to hear from you. A quick look at some of the articles and programs that 
we have previously published will show you the kind of format that is most suitable 
for the magazine. 


Mike Williams 


TICE BOARD NOTICE BOARD NOTICE BOARD NOTICE BOA 


Hint Winners 

This month we have selected the hint by R.Lambley as the winner of the £18 prize, 
while the £5 prize goes to B.Miller-Smith. If you have any useful hints or tips that 
you think will be of interest to other readers then let us know. You might also win 
£198 for yourself. 


MAGAZINE CASSETTE 

Once again, all the programs from this month's magazine are also available on 
cassette to save time and sore fingers, and the details for ordering are given on 
the back cover. The cassettes for all previous issues of the magazine are also 
available at the same price. If you want to be sure of getting your magazine 
cassette at the same time as the magazine, then why not take out a subscription and 
save money as well. 
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ELECTRON EXPANSION — THE PLUS 1 FROM ACORN 


by Nigel Harris 


We have been eagerly 


anticipating the release of further add-ons from 


Acorn for their Electron as part of the overall design philosophy for this 
increasingly flexible machine. We have managed to obtain one in time to give 


you our first impressions. 


Product : PLUS 1 expansion interface 
Supplier : Acorn Computers Ltd. 
Price : £59.98 inc VAT. 


In previous issues of ELBUG (Vol.1, 
Nos.5,6) we have talked of add-ons for 
the Electron. So far, these have all 
come from outside Acorn. Now the 
originators of the machine themselves 
have moved into the sales arena, with 
the PLUS 1 expanding both the functions 
of their machine and therefore its 
possible areas of application. 


Facilities that immediately become 
available simply by the connection of 
this new product are: a printer port 
(parallel), analogue port, and two ROM 
filing system cartridge sockets. 


APPEARANCE 

The PLUS 1 is a box with very similar 
cosmetic appearance to the Electron. It 
is the same width and height, and about 
three and a half inches from front to 
back. It's the same colour and texture 
of plastic, and when connected to the 
Electron matches it extremely well. 
Overall it appears to be very nicely 
made. Connection is made by plugging in 
to the expansion connector on the rear 
of the Electron, bringing the two cases 
into close contact. A couple of stout 
aluminium bolts render the union quite 
rigid, though care must be taken not to 
tighten these bolts too firmly since 
their purchase is against the plastic of 
the case. 


Having fixed the two parts of the 
‘new' Electron together, it almost takes 
on the guise of a little BBC micro, but 
for the two slots on top which are to 
accept the ROM cartridges. Beneath 
sprung hatches, each of these six inch 
slots houses an edge connector not 
unlike the one that projects from the 
back of the computer. The ROM cartridge 
system gives the Electron the capacity 
for plug-in-and-run software. A complete 


in a ROM 


program is permanently held 
chip inside one of these small boxes. 


When the cartridge is pushed into the 
slot it becomes part of the system 
(until unplugged again). 


USING THE INTERFACE 

The machine must be switched off 
while anything is being plugged in, and 
this is true of the interface box as 
well. When the power is applied, nothing 
strange reveals itself immediately on 
the screen (no banners rejoicing in the 


extension of the basic machine). 
Typing *HELP, gives the interesting 
response: 
Expansion 1.00 
ADC/Pr inter/RS423 


The analogue port (or analogue to 
digital converter - ADC) appears at the 
rear of the case as a 15 way D-type 
socket to accept the Acorn’ standard 
joystick plug. That means it is the same 
as the BBC micro's joystick interface 
but the PLUS 1's port does not make any 
provision for a light pen in the same 
way as the Beeb. So twin analogue 
joysticks may be plugged in here 
(they're the ones that are continuously 
variable between values instead of just 
on and off like the switched Atari 


type) . 
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Printer connection is by the same 
standard parallel (Centronics type) 26 
Pin plug that the Beeb uses. The socket 
for this is mounted on the back of the 
new interface box for the Electron 
alongside the analogue port. It's a 
shame that the particular type of socket 
that was supplied on our review model 
did not have the eject levers that are 
normally used for unplugging a 
connector without exerting strain on the 
cable. 


The last reference in the *HELP 
information is '/RS423'. RS423 is the 
standard by which some serial interfaces 
function. Yet there is not such a 
facility present in this box. Hinted at 
by Acorn but not available for a while 
at least, such an interface will make 
use of one of the cartridge ROM sockets 
in the PLUS 1 allowing serial printers 
or the use of modems (for communicating 
with other computers). 


The initial intention for the use 
of the plug-in ROM cartridge system is 
for program packages and games. The 
first ones available include Acornsoft 
favourites like 'Tree of Knowledge’, 
"Lisp', and 'Snapper' and of course once 
plugged in, take no time at all to load 
- a vast improvement over tape systems 
and potentially much faster than a disc 
system. Cost of all these cartridges is 
£14.95 (inc. VAT) except for Lisp which 
costs £39.95. 


An EPROM inside the PLUS 1 adds some 
extra *FX type commands to the operating 
system. These are to switch the printer 
on and off, the analogue port on and 
off, and for disabling the whole 
interface (so that the Electron thinks 
that the PLUS 1 is not there any more 
without having to physically disconnect 
them). Access to the values read at the 
analogue port inputs are available from 
within Basic using the ADVAL function 
and works in just the same way as with 
the Beeb (sorry to keep making these 
comparisons but it is inevitable). 


With the new extension, an Electron 
is equipped to do many more jobs than it 
could before but the cost is a reduction 
in speed. With the interface connected 
you should expect a program to run 
about ten per cent slower than it would 
if not connected. This difference in 
most instances, will hardly be 
noticeable, but in case it is, Acorn 
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have provided a new command - 
*FX163,128,8@ - to disable the whole 
interface, as mentioned above. Enabling 
it again is done by a similar but 
inverse command, *PX163,128,1. It's 
rather a long and cryptic sort of thing 
to have to type but it is most 
effective. 


EXPANDABILITY 

Expandability is a popular concept 
and the first surprise when looking at 
the PLUS 1 is that there is no provision 
for extending the Electron's expansion 
interface any further. In other words 
once a PLUS 1 is connected to your 
machine, it will not support any other 
expansions like the ROM board from SIR 
Computers or the switched joystick 
interfaces that are beginning to appear 
from other manufacturers. 


Calling this device the PLUS 1 leads 
one to speculate on the forthcoming 
existence of a PLUS 2 to be inserted 
between the Electron and the PLUS 1; 
thereby extending the expansion bus and 
making available some more useful 
facilities (like a disc filing system?) . 
Perhaps one day there will be a whole 
family of PLUS's, each doing a different 
job. 


CONCLUSIONS 

This is a very attractive addition to 
Acorn's baby who now appears to be 
cutting its first teeth. How popular the 
device becomes remains to be seen; the 
combined facilities offered here are 
more than Acorn's competitors can 
currently supply but then if it were 
only joysticks that were needed then one 
could probably find a cheaper solution 
with one of these. 


It seems strangely disproportionate 
these days; at one time the cost of a 
computer would have exceeded by far the 
price of a printer. Having paid 
something like £266 for an expanded 
Electron, you would be hard pushed to 
find many good printers comparably 
priced (the popular Epson printers are 
twice the cost of an Electron on 
average). I would personally have liked 
to see a disc interface emerge from the 
Acorn incubator but then (to over-use 
the metaphor) perhaps I am asking the 
baby to run before’ it can walk, and the 
popular demand is almost certainly fora 
package of this nature. 
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FLOWERS OF HELL 


by C. E. H. Francis 


You're trapped in the type of house 
that's probably an_ estate agent's 
nightmare. Your only escape-is to get to 
the top floor from the level where you 
start. Below you is the cellar, am 
above are many levels, each of which 
must be quickly explored for a way 
through to the one above - 
unfortunately there are no Stairs and 
you have to jump from floor to floor, 
but worse than this, the floors are 
unsafe and continually give way beneath 
you. 


If you get to the top you are 
rewarded with a bonus round. Here you 
must repeat the same theme but score 
bonus points by saving the flowers 
from meeting a fiery fate when they 
tumble down through the house. If you 
don't stop them, then you lose points. 
There are two dangers. Firstly, do not 
get devoured by the fireballs that rush 
through the house on their way to the 
pit of Hades concealed beneath the 


cellar. Secondly, you must not fall 
through the floor of the cellar 
yourself. There is only one more place 


below that and it will engulf you - soul 
and all, even though you have three 
lives. Life is not a bed of roses; each 
bonus round successively reached will 
require you to catch more flowers to win 
points. 


Controls from the keyboard are: 
- left 

- right 

- jump up a floor 
quantum jump (leap) 
- freeze game 

- unfreeze game 


cy as KN 
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Jumping up a floor has to be done 
when a hole appears in the floor above, 
whereas a 'quantum jump' is defined as 
being a special jump that will go up to 
the next floor whether there is a hole 
or not. Obviously this is quite a 
powerful feature and so you only get one 
for the whole duration of the game. 


PROGRAM_NOTES 
The program defines some special 
characters that you may like to see by 


typing PRINT CHR$ and a number from 224 
to 238, and 246 and 241. PRINT CHRS$226 
is particularly interesting, and you can 


see how it is defined in the 
procedure PROCchar at line 17090. As a 
further point of interest (but only if 
you're the type who cheats) you might 
like to know that the variable C% holds 
the number of lives left. So by altering 
line number 158 you can set any number 
of lives you would like to start the 
game with, or alternatively, you could 
delete line 348, and you'll never lose 
any lives! 


By keeping the variable names short 
in this program, the computer doesn't 
spend so much time interpreting the 
Basic code, so the program runs faster 
than it would, if the variable names 
were say half adozen letters long. 
Unfortunately, this means that the 
program text is less readable than it 
might be. 


— 
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19 REM Program FLOWERS 
20 REM Version E1.2 
3@ REM Author C.E.H.Francis 
4@ REM ELBUG JULY 1984 
50 REM Program subject to Copyright 
68 : 

168 ON ERROR GOTO 496 

116 DIMGP$ (32) ,FX$(2,18) ,FY$ (2,19) ,Z% 
(2,18) ,F$(2) ,FR$(2) ,FL$(2) ,FD$ (2) 

128 PROCchar: PROCstr ings 

138 HS=0 

148 REPEAT 

158 MODE] :S%=0:C%=3: PROCinstruct 

168 MODES 

176 PROCsetup 

188 PROCsetup2 

198 REPEAT 

268 PRINTTAB (10,1) ;S%;SPC2; 

216 IF INKEY-193 AND GP%$(Y%-1)=X% PRIN 
TTAB (X% ,Y%) MUS ; : Y$=Y$-2: SOUND! ,-15,96,1 

226 IF INKEY-192 AND QJ% THEN QU3=FAL 
SE: PRINTTAB (X%, Y3) MUS; : Y3=Y$-2 

236 IF INKEY-67+INKEY-98=@ PRINTTAB(X 
%,Y%3)MS; 

248 IF INKEY-67 AND X%<19 PRINTTAB(X$% 
7Y3)MRS; 2 XB=X$+1 

256 IF INKEY(-98) AND X%3>@ PRINTTAB(X 
$,Y%3)MLS; :X%=X$-1 

260 IF GP%(Y%+1)=X%: PROCdown 

270 Q$=2+2*RND (14) 

288 PRINTTAB (GP% (Q%) ,Q%) FS; 

298 PROCgap (Q%) 

308 IF A% PROCF 

316 IF INKEY-68 REPEAT UNTIL INKEY-54 
=-] 

328 UNTIL Y%=3 OR Y%$=31 OR TS=1 

338 IF Y%=3 PROCbonus:GOTO18¢ 

349 C$=C3-1 

350 IF Y$=31 PROCbottom 

360 IF T$=1 PROCfire 

376 IF C% THEN 168 

388 MODE] 

398 PRINTTAB (10,3) "GAME OVER" 

400 IF H8<S% THEN H%=S% 

410 PRINT''"YOU SCORED ";S% 

429 PRINT' '"HI-SCORE "SHS 

430 PRINT'''"Would you like another g 
ame? (Y/N) "; 

449 REPEAT:GS=GETS$:UNTIL INSTR ("YyNn" 


450 UNTIL G$<>"Y" AND GS<>"y" 

468 MODE6 

476 END 

486 : 

490 ON ERROR OFF :MODE6 

508 IF ERR<>17 REPORT:PRINT at line " 


518 END 


1986 DEF PROCdown 
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ce 
~ 
oy 
= 
seq 
a 
>” 
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1816 SOUND1,-15,9,1 

1628 PRINTTAB (X%,Y%) MDS; 

1638 YS=Y3+2 

1648 PROCgap(Y$-1) 

1858 ENDPROC 

1068 : 

167@ DEF PROCbonus 

1888 VDU19,3,14,9,8,0 

1698 VDU19,G,13,9,9,9 

1108 PRINTTAB (15,1) ;"BONUS" 

1118 VDU19,2,11,9,8,8 

1128 RESTORE] 149: REPEAT 

113@ READI$,J%:SOUND1,-15,1%,J% 

1148 DATA 56,5,9,1,56,5,0,1,60,2,8,1,6 
G,2,0,1,60,2,6,1,60,2,9,1,68,5,0,1,68,5 
7O,1,76,12 

1158 UNTIL I%=76 

1160 IFAS>@THEN: FORI%=GTO2:FORJ%=1 TOAS 
: PRINTTAB (FX% (1%, J%) , FY% (I$, J%) ) SPC1:NE 
XT: NEXT 

1178 PROCdelay (288) 

1180 AS=A$+1:S$=S$+5G*AS 

1198 IFA%>1GTHENAS=1 9 

1206 PRINTTAB (X%,Y%) SPC] 

1216 VDU19,2,4,0,9,8:VDU19,3,5,8,9,8 
1228 PRINTTAB(15,1) ;SPC5; 

1238 VDU19,9,3,9,0,0 

1248 ENDPROC 

1256 : 

1268 DEF PROCbottom 

127@ SOUND1,1,92,60 

1288 CLS:COLOUR] 

1298 PRINTTAB(2,5)"YOU FELL THROUGH " 
1300 PRINTTAB(2,8)"THE BOTTOM FLOOR" 
1318 D%=208:PROClives 

1326 AS=6 

1338 ENDPROC 

1348 : 

1358 DEF PROCF 

1368 FORI$=@TO2:FORJ$=1TOAS 

1370 IFX%=FX% (I$, J%) ANDFY% (I$, J$)=Y$PR 
OCcaught 


—_ 
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1386 IFZ$(I%,J%) <@PRINTTAB (FX% (I13,J%) , 
FY% (I$,J%) ) FLS (I$) ; ELSEPRINTTAB (FX% (I$, 
J%) ,FY% (I$,J%) ) FRS (I$) ; 

1398 FX%(1%,J%)=FX% (1$,J%) +23 (I$, J%) 

1406 IFFX% (I%$,J%) =GORFX% (I$, J%)=1 9ORRN 
D (28) =1 THENZ$ (1%, J%) =-Z% (I$, J%) 

14180 IFFX%(1I%,J%) =GP% (FY$ (I$,J%)+1) PRI 
NTTAB (FX% (I%,J%) , FY% (1$,J%) ) FDS (I$) ; :FY 
%(1%,J%) =FY$ (1$,J%)+2 

1426 IFX%=FX% (I$,J%) ANDFY% (I$, J$) =Y$TH 
ENPROCcaught 

1430 IFFY% (I%,J%) =31 THENPROCFbottom 

1449 NEXT: NEXT 

1458 ENDPROC 

1466 : 

1476 DEF PROCcaught 

1480 IFISSOUND1 ,-15,68,4:SOUND1 ,-15,88 
,4:SOUND1 ,-15,96,4:SOUND1 ,-15,80,4:S%=S 
$+5* IS: FY (I$,J%) =3: PRINTTAB (X$, Y%) CHRS 
226: ELSETS=1 

1498 ENDPROC 

1508 : 

15106 DEF PROCsetF 

1526 FORI%=@TO2:FORJ%=1TOA$:FY% (1%, J%) 
=3:FX% (I$,J%) =RND(18) :Z% (I$, J%) =2*RND (2 
)-3 

1538 NEXT: NEXT 

1548 ENDPROC 

1550 : 

1568 DEF PROCFbottom 

1578 PRINTTAB (FX$ (I1$,J%) ,FY$ (1$,J%) ) SP 
$; :FY% (1%,J%) =3 

1586 IFISTHENS$=S%-5*1I%:SOUND1,-15,32, 
4:SOUND1 ,-15,48,8:SOUND1 ,-15,32,4 

1598 ENDPROC 

1608 : 

1610 DEF PROCfire 

1628 SOUND@,-15,6,15 

1638 CLS:COLOURI 

1640 PRINTTAB(2,5) "YOU GOT CAUGHT" 

1658 PRINTTAB(2,8)"BY A FIREBALL" 

1668 D%=300: PROClives 

1676 T%=0:AS=6 

1688 ENDPROC 

1696 : 

1766 DEF PROCchar 

1718 ENVELOPE] ,50,-8,9,9,5,9,0,126,9,9 
77126,126,126 

1728 ENVELOPE2,157,1,9,0,8,0,0,126,0,8 
7-126,126,126 

1738 VDU23,224,255, 255,255,254, 252,192 
7,192,128 

1746 VDU23,225,255,66,66,9,08,9,09,G 

175@ VDU23,226,24,24,60,99,24,60, 36,162 

1768 VDU23,227,255,255,255,127,63,3,3,1 
126,24 

1786 VDU23,229,0,16,84,56,254,56,84,16 

1798 VDU23,230,0,8,42,28,127,28,42,8 

1868 VDU23,248,12,12,60,47,12,14,58,35 


1818 VDU23,241,48,48,69,244,48,112,92, 
196 

1828 VDU23,1,9;0;9;G; 

1838 ENDPROC 

1848 : 

1858 DEF PROCinstruct 

1868 VDU19,3,3,9,8,08:VDU19,2,6,9,6,9 

1878 VDU28,9,2,39,8:COLOUR] 38:CLS: VDU26 

1884 COLOUR]: PRINTTAB(1@,1)"THE FLOWER 
S OF HELL":COLOUR128 

1898 COLOUR2:PRINT''"Move the man "; 

1988 COLOUR3:VDU226 

1918 COLOUR2:PRINT" up through the gap 
s in "'"the floors. But he falls throug 
h the"'"gaps too. Catch flowers "; 

1928 PRINTFS$ (2) +CHRS32+F$ (1) ; 

1938 PRINT" to score." 

1948 PRINT'SPC11CHR$229" - SCORES 5" 

1958 COLOUR3:PRINT SPC11 CHRS$229" - SC 
ORES 19" 

1968 COLOUR2:PRINT'"If£ flowers drop th 
rough bottom floor" 

1976 PRINT'SPC11 CHR$229" - LOSES 5" 

1988 COLOUR3:PRINT SPC11 CHRS$229" - LO 
SES 19" 

1998 COLOUR2:PRINT'"Avoid fireballs "; 
28868 COLOUR1]:PRINT CHR$228; :COLOUR2: PR 
INT" and do not fall"'"through the bott 
om floor. Reach the"'"top floor for a b 
onus." 
2916 
2626 
2936 
2646 
2056 


PRINT"To move man use keys:" 
PRINT'SPC7"Z - MOVE LEFT" 
PRINTSPC7"X - MOVE RIGHT" 
PRINTSPC7", - JUMP UP" 
PRINTSPC7"M -— QUANTUM JUMP" 

2068 PRINTSPC5S"F/U - FREEZE/UNFREEZE" 

207% PRINT'"Use keys together to avoid 

falling back"'"after jump. Only one qu 
antum jump"'"allowed per man, ";C%;" me 
n per game." 

2688 COLOUR3:PRINT'SPC6"PRESS ANY KEY 
TO CONTINUE"; 

2698 G%=GET 

2166 ENDPROC 

2118 : 

2128 DEF PROCsetup 

2138 VDU23,1,0;0;9;9; 

2148 VDU19,6,4,0,9,0 

2158 VDU19,2,2,0,8,8:VDUI9,3,5,0,9,9 

2168 A%=8:QJ$=TRUE:COLOUR2 

2178 FORQS=4TO3GSTEP2 

2188 PRINTTAB (0 ,Q%)CHRS224+STRINGS (18, 
CHR$225) +CHR$227; : PROCgap (Q%) 

2198 NEXT 

2288 ENDPROC 

2210 : 

2226 DEF PROCsetup2 

2238 XB=0:Y3=27 

2249 IF A%>@ THEN PROCsetF 

225G COLOUR1:PRINT TAB(4,1) "SCORE" = 
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2268 IFCPRINTTAB (G, 1) STRINGS (C%-1 ,MS) ; 2468 NEXT 


2276 PRINT TAB(X%,Y%) MS 2476 ENDPROC 

2288 ENDPROC 2486 : 

2298 : 2499 DEF PROCgap(I$) 

2308 DEF PROCstrings 2508 GP% (1%) =RND(18) 

2318 CS=CHRS$17:RS=CS+CHR$1 :BS=C$+CHR$2 251@ PRINTTAB (GP% (1%) , 1%) SPS; 

2 YS=C$+CHRS$3 2528 ENDPROC 

2328 NS=CHRS$11 :WS=CHR$8 : ES=CHRS$9 : SS=CH 2538 : 

RS19 2548 DEF PROCdelay (T%) 

2338 NNWS=NS+NS+WS : SWS=SS+WS 2550 TIME=@:REPEATUNTILTIME>=T% 

2349 FS=BS+CHRS$225 :MS=Y$+CHRS$226 2568 ENDPROC 

2358 SPS=CHR$32:MUS=SPS+NNWS+MS 2576 : 

2368 MDS=SPS+SWS+FS+SWS+MS 2580 DEF PROClives 

2378 MLS=WS+YS+CHR$241+SPS$ 2598 IF C%=1 THEN PRINT TAB(1,11) "ONLY 
2380 MRS=SPS+YS$+CHRS24G ONE LIFE LEFT" 

2398 FS(@)=RS+CHRS$228 2606 IF C%=2 THEN PRINT TAB(1,11) "ONLY 
2400 FS(1)=BS+CHR$229 TwO LIVES LEFT" 

2410 FS$(2)=YS+CHRS$230 2610 IF C%=@8 THEN PRINT TAB(3,11)"NO L 
2426 FORI$=@ TO 2 IVES LEFT"TAB (5,14) "GAME OVER" 

2430 FLS (1%) =WS+FS (I$) +SPS 2620 PROCdelay(D%) 

2448 FRS(I%) =SPS+FS (1%) 2638 ENDPROC 

2456 EDS (1%) =SP$+SHS+S$+FS (1%) 8 
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FLEXIBLE ANSWERS - B.Miller-Smith 

A way to cover most eventualities when requesting a yes or no answer is 
illustrated in the following program 

188 yesS="Y y YES Yes YEP YUP OK I WOULD I would":REM extend as required 

11@ no$="N n NO No NOPE NOT NOW NO THANK YOU":REM Ditto 

128 test$=yes$+no$ 

138 INPUT "Do you want instructions ?"answer$ 

149 reply3=INSTR(test$,answer$) 

150 IF reply%=6 THEN PRINT "I'm sorry, I didn't understand that":GOTO 130 

16@ IF reply%<LEN(yes$) THEN reply%=1 ELSE reply3=6 

176 REM Exits with reply%=1 for "YES", @ for "NO" 
The string yes$ should contain all the most likely occurrences of words meaning 
'yes' and the variable no$ the same for the 'no' answers. A response input as 
answer$ at line 13@ is then tested at line 148 such that the value of reply% 
indicates whether a 'yes' or 'no' answer was received. 


PRESSING KEYS BY PROGRAM - R.Sterry 

You can use the *FX138,0,n command to enter a character in to the computer's 
keyboard buffer where n is the ASCII code for the character concerned; the computer 
then behaves as if the corresponding key had been pressed. For example, the ASCII 
code for the letter L is 76, so *FX138,@,76 inserts L into the keyboard buffer. You 
could try putting the following few lines into a program. 

10600 *FX15,0 

10019 *FX138,0,76 

18620 *FX138,0,73 

10638 *FX138,8,83 

10640 *FX138,6,84 

16650 *FX138,0,13 

18868 END 
This inserts the characters for the command LIST followed by Return into the 
keyboard buffer, and when the program terminates, Basic takes its input from there. 
The contents of the keyboard buffer are only used when the computer expects 
characters from the keyboard, and it responds just as though someone had typed them 
in. (*FX15,@ is used to clear the buffer initially of any superfluous characters). 
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GIVE YOUR ELECTRON NIGHT FEVER 


by M. Hayes & D. McLoughlin 


Here's a fascinating program for your 
Electron. We're not quite sure how it 
works but it ob{iously does and the 
effect is literakij,, rather dazzling. 


saved it on cassette, put on a tape of 
your raunchiest music in the 
Electron's cassette player and run the 
program. You'll find that the display 
will jump into life as soon as the music 
starts. You need to be able to hear the 


music that's playing to the computer 
for the best results - some cassette 
recorders switch their sound off when 
they are plugged in. The display will 
change to the rhythm of the tune that 
you put on. This is well worth seeing in 
colour, so you'll have to make some 
other arrangements if you usually work 
in black and white. 


The way that the program works is 
simply by sampling the signal that 
arrives at the cassette port and 
adjusting the video display according to 
a set of rules provided by the program. 
The main part of it is quite short. 
This is so that the program will run as 
quickly as _ possible for the computer 
to respond effectively to the music 
coming in from the cassette. 


Now your Electron is all set fora 
spell of Saturday night fever. 


1@ REM Program DISCO LIGHTS 
26 REM Version E1.3 


30 REM Authors M.Hayes & D.McLoughlin 
40 REM ELBUG JULY 1984 
5@ REM Program subject to Copyright 
68 : 

108 MODE] 

11@ ON ERROR GOTO 366 

126 PROCtitle 

138 MODE2 

146 FOR C%=8 TO 15 

158 VDU19,C%,0,9,0,9 

160 NEXT 

178 FOR L%=8 TO 638 

18@ COLOUR 128+ABS(10-L% MOD 2@) +ABS ( 

16-L% DIV 2@) 

196 VDU32 

206 NEXT 

218 VDU23;11;0;0;0;G; 

226 *MOTOR 1 

23@ REPEAT 

248 VDUI19,L3,0,0,0,0 

250 P%=0 

268 REPEAT 

270 P%=P$+] :M$=?&FEG4+?&FEO9 

286 UNTIL (P%=108) OR (M%<>N$) 

296 IF P%=10G THEN FOR P$=8 TO 15:VDU 

19,P%,8,0,0,8, :NEXT: GOTO25G 

300 N%=?&FE04+?&FEO9 

318 VDUI9,L3+N% DIV 64,N% MOD 8,0,0,6 
328 L%=(L&+N%)MOD15 

338 UNTIL FALSE 

348 END 

358 : 


368 ON ERROR OFF:MODE 6:*MOTOR @ 

378 IF ERR<>17 THEN REPORT: PRINT" at 
line ";ERL 

388 END 

398 : 

10806 DEF PROCtitle 

1918 VDU28,8,2,39,8:COLOURI398:CLS 

1826 COLOUR]: PRINTTAB (13,1) "Disco Ligh 
ts" ars 
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1938 VDU26:COLOUR1 28 1688 PRINT"volume for loading programs 
1446 PRINTTAB(17,4) "by": PRINTTAB (12,6) Aut 
“Matthew Hayes": PRINTTAB (16,8) "and": PRI 1896 COLOUR] 
NTTAB (18,18) "David Mcloughlin" 1186 PRINT''"THIS MUSIC MUST BE NORMAL 
1658 COLOUR2 MUSIC, AND NOT":PRINT"COMPUTER GENERAT 


1666 PRINT'''"This program displays a ED MUSIC." 
regulated set of":PRINT"patterns, acco 1118 COLOUR3:VDU19,3,2,9,9,0 


rding to the beat of the" 1126 PRINTTAB(6,39)"Press any key to c 
1878 PRINT"music. This music must be ontinue"; 

inserted into":PRINT"your cassete recor 1138 G=GET 

der, and played at the" 1148 ENDPROC e 
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BACK-UP COPIES OF MACHINE CODE PROGRAMS - D.Bonehill 

To make a back-up copy of your favourite cassette (not protected), type *OPT1,2 
<return> followed by *LOAD"" <return>. Press 'PLAY' on your cassette recorder to 
load the program to be backed up. When this is complete, the screen will display a 
series of numbers, for example: GENOCIDE @8 868 00003480 S8G00E00 

Load a new cassette and then type: *SAVE GENOCIDE E@@ + 868 3400 where the first 
and second numbers are the second and third numbers from above but simply reversed 
in order. Press 'PLAY' and 'RECORD' and you will be able to make a back-up copy of 
many machine code as well as Basic programs. 

Remember that if a program consists of several parts, then each part will need to 
be backed up separately. Note that this method cannot be used to make back-up copies 
of protected software. g 


RESERVED WORDS - R.R.Hull 

Take care when using capital letters for variable names that the names don't 
coincide with any that Basic uses like COUNT or PRINT because you will otherwise get 
errors with your programs. The best solution is to use lower case letters for 
variable names which will avoid any such problems. gS 


CHANGING THE BELL PARAMETERS - K.B.Kealy 
Most computers have a simple sound generator of some sort. Originally it used to 

be a bell, for compatibility with the old electronic keyboard standards, hence the 
name used now. Nowadays, in common with most computers, the Electron contains a more 
sophisticated electronic version. If you hold down the control key amd press 'G', 
you will hear the Electron's 'BELL'. Similarly, DU 7 in a program will have the 
same effect. However, there are four FX calls which allow you to alter the sound of 
the BELL in a similar manner to the SOUND command: 

*FX 211,n - Selects the sound channel used for the BELL. Default is 1. 

*FX 212,n - Sets the volume of the BELL if a negative value of n is used, or 
an envelope if n is positive. If an ENVELOPE is specified, then the value of n 
should be set to (ENVELOPE no.-1)*8. Similarly, for the amplitude, subtract 1 and 
multiply by 8. Default setting is 144. 

*FX 213,n - This sets the frequency of the BELL. Default is 191 

*FX 214,n - Finally, the duration of the BELL is set with this FX call. 
Default setting is 7. For example try running the following program: 

1@ ENVELOPE 1,2,3,-2,5,7,5,12,63,-39,9,-39,126,63 

20 *FX211,1 

36 *FX212,6 

40 *FX213,100 

56 *FX214,16 


68 VDU 7 
Now, whenever an error occurs, or the ASCII code 7 is intercepted, the BELL will 
be sounded with the parameters set up in the program. & 
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DEBUGGING PROGRAMS (Part 1) 


by Mike Williams 


In this the first of two articles on debugging 
programs, we look at some of the problems that may 
arise from typing in programs from printed listings. 


One of the most common subjects in 
letters received from ELBUG members, is 
that of programs listed in the 
magazine. Generally the contents of 
such a letter will be along the lines 
of: 

",...maving spent hours typing in 
the Block Blitz program from the March 
issue, I keep getting the message "No 
such variable at line...". I have 
checked this line several times with 
the printed version and I can find 
nothing wrong. Can you tell me if there 
is a bug in the program or am I missing 
something?...". 


I have now answered many such 
queries, and have a pretty good idea of 
what goes wrong. Although there were 
just a few errors in the listings of 
some programs in early issues of ELBUG, 
these were not serious and were 
notified in the following issues. The 
majority of these letters. clearly 
relate to errors that have _ been 
introduced during the process of 
typing the program into the Electron 
from the printed listing. 


MAGAZINE STANDARDS 

In the first issue of ELBUG I wrote 
about the standards that we adopt in 
printing program listings in the 
magazine. For the benefit of more 
recent members, it is probably worth 
repeating the more important points 
here. 


As we said then, all the listings 
are printed directly from working 
versions by first transferring the 
Program concerned from the Electron to 
a BBC micro. We try to make sure that 
the programs we print are both good 
examples of the programmer's art, and 
also clearly presented to minimise 
errors when the program is being typed 
in. You are recommended to keep to the 
same line numbers as in the original 
listing, and to incorporate all 
apparent spaces except the one 


ail , 
immediately after the line number. 


Doing this will help to reduce the 
possibility of error. 


Spaces can be particularly 
troublesome, as being non-printing 
characters, it is sometimes difficult 
to determine exactly how many spaces 
are needed. Use adjacent characters if 
necessary to help count out the number 
of spaces involved and remember that 
all programs are normally printed with 
WIDTH set to 39 (to give the same 
column width as for text). 


We also try to ensure that 
variables, functions and procedures are 
all given meaningful names using lower 
case letters. It is not always possible 
to achieve this - other constraints, 
such as the use of the integer 
variables A$ to Z%, sometimes dictate 
otherwise. 


FINDING THE BUGS 

The need for accuracy when typing in 
a program cannot be stressed too 
strongly. Even so, typing in long 
programs is tiring amd it is only too 
easy to introduce the odd unnoticed 
error aS you go along. One of the 
commonest errors, as already mentioned, 
is that of "No such variable at 
line...". Sometimes, on checking, you 
will find that a typing error has 
resulted in an incorrect variable name. 
Correct this and the error goes away. 
Very often, however, careful checking 
of the line referred to reveals no 
apparent error. 

There are now two possible 
explanations. When dealing with 
variables, it is important to 
understand that they can be used in two 
somewhat different ways. A variable can 
be used in an arithmetic expression for 
example, or in a PRINT statement or 
similarly in a variety of other 
instructions. In each case it is the 
value, either a number or a character 
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string, currently assigned to the 
variable that is used in this way. If 
you try to use a variable to which the 
program has not yet assigned some 
value, then the message "No such 
variable..." will result. When this 
message occurs, it usually means that 
there is an error earlier in the 
program, probably in the line that 
should have assigned a value to this 
variable. 


If the line that generates the error 
message contains more than one variable 
it is a simple, if slightly tedious 
matter, to determine which variable is 
actually responsible for the error 
message. As soon as the error occurs, 
list out that line, and then (in 
immediate mode) just type PRINT 
followed by the name of one of the 
variables and Return. Repeat this for 
each of the variables listed in turn. 
The first one to cause a repeat of the 
error message is the one that is 
causing the trouble. 


Once you have got this far, you must 
then check the program, and try and 
find where this variable is assigned a 
value. Because of the way programs are 
structured, this will quite often be in 
a procedure’ called PROCinit, or 
PROCstart or something similar. It is 
these lines that then need careful 
checking with the printed version of 
the program, rather than the line that 
was first flagged as being in error. 


The second possible explanation for 
this situation is rather more subtle, 
and requires some understanding of how 
Basic distinguishes between variable 
names and keywords in a program. A 
Basic keyword is one of the 
Basic instructions GET, THEN, FOR, etc. 
The Electron's version of Basic, the 
same as used by the BBC micro, allows 
variable names to be of any length and 
to include embedded keywords, although 
they cannot start with a _ keyword. 
Because they may be embedded within 
variable names, it is possible for 
Basic to allow a variable name 
“NAMELIST" or "GIFT", where "LIST" and 
"IF" are not read as commands, but 
simply as part of the variable name. 
This is not true of most other micros, 
which would recognise keywords wherever 
they occurred. 


Now BBC Basic is much more flexible 
in this respect, so that you don't have 
to keep checking, when’ choosing 
variable names, to see if part of the 
name is a forbidden keyword. In 
addition, any confusion can be 
completely avoided by using only lower 
case for variable names, which we try 
to do in our programs, as keywords are 
only ever recognised when in upper 
case. 


However, there are still some 
situations where confusion can occur, 
and this involves. particularly the 
keyword "THEN". The following lines 
will help to illustrate: 

16 IF A=BTHEN GOTO 180 

10 IF A=B THEN GOTO 108 

16 IF A=B%THEN GOTO 100 
On the Electron, Basic will interpret 
the first of these lines as having a 
variable called "BTHEN", where the 
apparent keyword "THEN" is embedded as 
part of the variable name "BTHEN". The 
second line is interpreted as expected, 
with the space after the variable "B" 
indicating that this is the end of the 
variable name. However, if an integer 
variable is used, the percentage sign 
will indicate the end of the name, and 
no further space is required. 


Although the use of lower case 
variable names is to be preferred, this 
can also have the effect of obscuring 
errors of this kind. Consider the 
following: 

16 IF abcd=abcdTHEN PRINT "Yes" 

This is still in error, since it is 
allowable to mix upper and lower case 
characters in variable names, and thus 
the line above specifies a variable 
“abcdTHEN" following the '=' sign. It 
is a good idea to ensure that keywords 
like THEN and ELSE are always preceded 
by a space to avoid the possibility of 
error. 


The moral of this is that spaces 
can significantly change the meaning of 
an instruction if used incorrectly 
(either left out when needed, or added 
when not needed). This is again a 
reason for recommending that you try to 
type in any printed program as 
accurately as possible, including 
spaces. Next month we will look at some 
more tips for debugging programs, 
including some for your own programs. 
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MORE GAMES REVIEWED 


Title : Intergalactic Trader 


Supplier : Program Power 
Price : £8.95 inc VAT 
Reviewer : Nigel Harris 


Rating Ladd 


This is not an arcade game. It 
describes itself as a text only game for 
up to nine players and may well take an 
evening to play. It's really a kind of 
elementary Monopoly in space. Of course 
it didn't actually need to be in space 
but I think the authors supposed that 
this adds extra appeal for the kind of 
audience that they are trying to cater 
for. 


A target figure is agreed with the 
other competitors before the game starts 
and you then race to achieve this 
target. To do this you must mine the 
resources of an asteroid that you're 
given at the start of the game. The 
transportation necessary to enable the 
sale of these resources costS a 
considerable amount. One asteroid does 
not yield enough and you would be 
expected to have to buy several in order 
to compete. Along the way there are many 
hazards that appear in a random fashion 
much like the chance cards in Monopoly. 


The game is written in Basic, and for 
once is ‘listable' for those interested 
in seeing how a large program like this 
might be written. It's important to 
notice that this is not am action game 
and may seem a little dull to most. 
However, it seems to be quite well 
thought out and may appease the Monopoly 
maniacs who are waiting to see their 
favourite game on the Electron. 
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Name : Electron Invaders 
Supplier : Micro Power 
Price : £7.95 inc VAT 
Reviewer : David Fell 
Rating 4 


Last month I reviewed Invaders from 
Superior Software, and said that I 
couldn't fully recommend it as a game. 
This month I've been playing Electron 
Invaders from Micro Power (formerly 
Program Power). I found this game far 
more enjoyable than Superior's, as it 
featured a number of variations on the 
basic theme of invaders and was well 
planned and designed. 


There are options within the game to 
freeze, restart, turn the sound on and 
off, and to play a one or two player 
game. As the game progresses, different 
types of alien advance down the screen, 
with more vicious and higher scoring 
invaders appearing at the top. There 
are three sorts of missile - slow and 
fast normal bombs, and a type of bomb 
that splits into two pieces of shrapnel 
that fly off at 45 degrees. This sort 
can be particularly effective, and 
require particular respect! 


Overall the game is a_ superb 
version of the classic arcade game, and 
I recommend its purchase. About my only 
criticism is that the graphics 
occasionally flicker - but the game 
doesn't appear to slow down, no matter 
what's happening on the screen. 
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Title : Percy Penguin 
Supplier : Superior Software 
Price : £7.95 inc VAT 
Reviewer : Nigel Harris 
Rating Pe aa 


Percy is a close relative of 
that other antipodean of the arcade 
games, Pengo. He is trapped in a maze of 
ice blocks with the dreaded Snobees who 
will kill him if they get their claws on 
him. It is up to you to guide Percy 
around the ice safely and do away with 
the Snobees by pushing the ice blocks 
over them. 


If you completely wipe the Snobees 
off the screen, then a new wave will 
appear. Do it fast enough and you will 
be awarded bonus points; apart from 
this, each round is the same as_ the 
previous one. The rounds are 
punctuated by an Electron rendition of 
an excerpt from a theme by Paganini - I 
am not familiar enough with this piece 
to know what the reason for this 
might be, but there is probably a hidden 
message there somewhere. While playing 
the game, there is an interminable cycle 
of Bach's Toccata so it's a shame that 
you can't turn the sound off from 
within the game. Percy's movements are a 
little slow to react to your 
instructions, but you quickly learn to 
adapt to this. 
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like the little penguin 
cute. 


confess I 
character, he's very 


Title : Lunar Rescue 
Supplier : Alligata 
Price : £7.95 inc VAT 
Rating =: ** 
Reviewer : Alan Webster 
Lunar Rescue is another Alligata 


game that has been transferred from the 
BBC to the Electron and like the others 
it doesn't quite play to the same 
standards. The game is slow on the 
first level, and never becomes any 


faster. After completing four levels 
without losing a _ life, I lost 
interest. 

The object of the game is to 


navigate a spaceship through a force of 
alien ships and to land on the surface 
of a planet. Once you have landed, you 
pick up one of the six earthmen 
stranded on the planet, and fly him 
back to safety. The game is similar in 
concept to the ‘Lunar Escape' game that 
we published in Elbug Vol.1 No.6. 


Because of its lack of speed this 


is not one of the better games from 
Alligata, and the sound effects are not 
very stunning either. e 
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USING TAPE RECORDERS WITH AUTOMATIC RECORD LEVEL CONTROL - B.Barrett 

An automatic level controller on a tape recorder can be responsible for bad 
recordings of saved programs. If you have problems and if it is possible to do so on 
your recorder, this facility should be switched off. 


On the whole this is a rather nice 
game. It's quite addictive and I 


ACCURATELY FILLING RECTANGULAR AREAS - M.Mertens 

Filling a rectangular area on the screen using triangle plot options 8@ to 87 can 
lead to the problem of unwanted lines when using the GCOL statement with first 
Parameters greater than zero. This is caused by the desired plotting effect 
occurring twice at the same place. One method of filling a rectangular area which 
overcomes this problem is to define the area as a graphics window using DU 24, 
setting the background colour and plot option to the required values and perform a 
CLG to fill the window. This is also a faster way to achieve the desired result. A 
second method involves plotting triangles as before, and drawing a line in the 
required colour and plot option where the triangles meet. (See 'Moving Chequer 


Board' in ELBUG Vol.1 No.4 lines 210 to 276.) Ld 
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If you have some 
difficulty managing all 
your programs saved ON “>i “ 
cassette then this 
handy utility will be a 
great help. It not only provides an 
index to programs that you have saved 
but it also works out the counter 
settings as well for speedy access. 


One of the problems with keeping 
several programs on one cassette is 
that of finding the programs easily 
when you want to use them. Unless you 
know fairly accurately where a program 
is saved, much time can be wasted just 
finding where the start of the program 
is. Most cassette players used with 
computers have a counter which can be 
very useful in identifying the start of 
any given program. We now go one step 
further and automate the whole process 
of cataloguing a cassette of programs 
with the utility listed here. 


The indexer utility will 
automatically read through a complete 
cassette of programs and produce an 
index giving for each program its name, 
its length in blocks and in bytes, 
starting time in seconds and starting 
counter reading. The indexer also has 
some capability to cope with programs 
which contain recording errors (i.e. 
which would not load under normal 
circumstances). If such a program is 
found, its length in bytes is entered 
as a blank, providing an indication of 
its bad state. 


The rate at which the counter 
rotates varies (sometimes 
significantly), from one cassette 


recorder to another. For this reason, 
the indexer program contains a special 
calibration routine to enable it to 
work reasonably accurately with most 
cassette recorders. Once the program 
has been calibrated in this way (in 
effect by setting the values of two 
variables R and D) the indexer will 
automatically record the correct 
counter readings as it reads through a 
cassette of programs. In addition, the 
indexer program can also be used in 
manual mode, with you entering the 
correct counter value at the start of 
each program on a cassette, although 


‘this is unlikely to be as 

accurate. The indexer program 
4 contains full instructions to 
guide you through whichever 
option you choose. 


\_ CASSETTE INDEXER > 


& 


\DALPILLING —_| 


THEORY 

The program uses the two values 
assigned to the variables R and D to 
make its calculations. R is the initial 
effective radius of the right hand 
spool in the cassette, and D is the 
thickness of the tape. Usually, the 
tape counter is linked to the right 
hand spool. As the tape runs through 
the recorder the radius of the right 
hand spool gets larger as the tape is 
wound onto it. Thus it turns slower in 
order to maintain the same tape speed. 
This means that the number on the tape 
counter, is not literally related to 
the time elapsed since the start of the 
tape. The cause of the non-linearity is 
of course the finite thickness of the 
tape. The program will still work if 
the counter is linked to the left hand 
spool, but do not be worried if either 
R or D turns out to be negative - they 
are only theoretical values! 


USING THE INDEXER PROGRAM 


Before using the indexer program you 
should make sure you have at least one 
copy securely saved. This is important 
as the indexer program modifies itself 
when it runs, leaving you only with the 
cassette index at the end of its run. 
The program details the three choices 
open to you. These are: 


1. Manual indexing of cassette. 
2. Automatic indexing of cassette. 
3. Calibration and indexing. 


This program was originally designed 
for cassette recorders that had remote 
motor control. In order that the 


ELBUG 


JULY 1984 


Volume-1! Issue 8 


17 


program may also be used with other 
cassette recorders, a separate 
calibration program is provided for use 
in this situation. See the end of the 
article for further details on this. 


AUTOMATIC CALIBRATION 

This section allows the values of R 
and D for your cassette recorder to be 
calculated precisely. Once selected, 
the tape will start running, and you 
should press the space bar when the 
prompt is displayed. You will then be 
asked to enter the counter reading. The 
program will continue to read through 
the tape, indexing the programs as it 
finds them. After a reasonable interval 
(to get a good average reading) press 
the space bar a second time (when 
prompted) and enter the new counter 
reading. The program then calculates 
the correct values of the constants R 
and D before continuing to index the 
programs on the tape as described 
below. Do make sure that the counter is 
reset to zero before starting any 
calibration or indexing. 


AUTOMATIC INDEXING 

With this option, the program reads 
through the tape, and notes down each 
file, its length, where on the tape it 
starts, and at what tape counter value. 
When you are satisfied that all the 
files have been included, press Escape 
ONCE ONLY. The program will then modify 
itself, leaving you with a small 
Program that when run, lists out the 
files on the tape, in order, with their 
associated statistics. You can then 
save this program if required, as a 
permanent record. 


MANUAL INDEXING 

With this option, you are required 
to enter the value of the tape counter 
at the start of each program, but aside 
from that it is functionally equivalent 
to the automatic indexing option. 
Because of the way in which this option 
is performed, only cassette users with 
motor control will be able to use this 
option correctly. 


1 REM PROGRAM TAPE INDEXER 

2 REM AUTHOR D.J. PILLING 

3 REM VERSION E1.1 

4R JULY 1984 

5 REM PROGRAM SUBJECT TO COPYRIGHT 


6: 

58 MODE6: @$=&20406: OSBYTE=&FFF4 
6@ PROCINS 

76 *OPT1,1 

88 DIMNS (188) ,TS(18@) ,C$(18@) 
98 ONERROR GOTO583 

95 PROCTITLE 

106 PRINT''''"(1) MANUAL"'"(2) AUTO"! 
"(3) CALIBRATE"'''"SELBCT TAPE COUNTER 
MODE: ";: INPUT""CS 

165 VDU19,G,0,0,8,8,19,1,3,9,9,0 

110 IFC8<1 OR C%>3 GOTO10G 

120 TS%=6:TF%=8:NS=9 

130 REM ========================== 

148 REM DEFAULT R AND D 

158 R=.2779:D=. 6983 

16@ REM ===================s======= 

176 CLS: TIME=TF%: ER$=FALSE 

188 X%=OPENUP ("") 

196 TS$=TIME:N$=N%$+1 : PROCCAL: TIME=TS$% 

208 REPEAT Z$=BGET# X%$:UNTIL EOF#X% 

216 CLOSE #Xx$ 

220 TF%=TIME 

238 PROCST 

248 GOTO17¢0 

250 IF C%>2 PROCCX 

260 HIMEM=HIMEM-800@: P3=HIMEM 

278 PROCDS: P$=HIMEM 

288 L$=6000 

298 FS=STRSL$+"D."+STRSNS+CHRS1 3+"G. 3 
19"+CHRS1 3 

386 PROCWR(FS) 

318 L%=6016:I$=1 

328 FS=STRSL3+"D."+FNSS+CHRS1 3+"G, 340 
"+CHRS13 

338 PROCWR(FS) 

346 LS=L$+5 

350 FS=STRSL3+"D."+FNSS+","+FNSS+CHRS 
13+"G. 376"+CHRS13 

368 PROCWR(FS) 

370 L&=L3+16: I$=1$+1 

38@ IFIS>N% ELSE GOTO320 

390 FS="DELETEG, 1586"+CHRS13 

409 CLS:PRINT''"I'M YOUR INDEX"''"SAV 
E ME" 

418 PRINT'''"(The program in the comp 
uter is now an"'"index of the tape; whi 
ch you may run"'"and save.)"'' 

426 PROCWR(FS) 

430 END 

449 DEFPROCWR (AS) 

458 FORJ%$=1TOLENAS 

466 A%$=138:X%=6: YS=ASC (MIDS (AS, J%,1)) 

470 CALL&FFF4 

480 NEXT: END 

498 DEFPROCDS 

500 FORI%=1TONS 

518 SP%=NS (I$) : PS=P$+LENNS (I$) +1 

528 SP%$=TS (I$) :P$=P$+LENTS (I$) +1 

538 SP%=CS$(I%) :PS=P$+LENCS(IS$)+] —» 
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548 NEXT: ENDPROC 

5508 DEFFNSS 

56G AS=SP%:P$=P$+LENSP$+1 

57@ =AS 

58@ IF ERR=17 AND ERL=18@ GOTO25¢ 

598 IF ERR=17 AND ERL=200 N%=N%$-1:GOT 
0256 

600 IF ERR>20@ TF%=TIME: PRINT: ER3=TRU 
E: PROCST: GOTO] 798 

61@ ONERROROFF:REPORT: PRINT" at line 
"s ERL: END 

628 DEFPROCST 

630 FS=FNS (8, VPOS-1) 

640 LS=RIGHTS (F$,4) 

645 IFER$ LS=" S 

658 BS=MIDS (F$,12,2) 

660 FS=LEFTS (FS, 19) 

67@ IFMIDS(FS$,19,1)<>" " GOTO7@G 

680 REPEAT FS=LEFTS (F$,LENFS-1) 

696 UNTIL MIDS (FS,LENF$,1)<>"_ " 

788 NS (N$) =""""+FS+BS+LS+0""" 

718 TS(N%) =STRS (TSSDIV10@) 

726 C$(N%) =CS 

725 ENDPROC 

73@ DEFFNS (X,Y) 

735 OX%=POS:0Y%=VPOS 

748 A$=135:AS="" 

745 FORI%=@TO17:VDU31, (X+I$) ,Y 

758 CHS=CHRS ( (USR (OSBYTE) AND&FFFF) DIV 
256) 

755 AS=AS+CHS$: NEXT 

768 VDU31,0X%,OY% 

765 =AS 

77@ DEFPROCCAL 

788 *FX21,0 

796 Y%=VPOS 

886 IF C%=1:VDU7,7: INPUTTAB(@,Y%+1) "N 
UMBER ON TAPE COUNTER "CS: IFCS=""GOTO8 
4) 

810 IF C%=2 CS$=FNTC(TS%DIV196) 

820 IF C%>2 CS$="": PROCCALS 

830 PRINTTAB(@,Y%) ; 

846 ENDPROC 

858 DEFPROCCALS 

868 VDU7,7 

876 PRINTTAB(@,Y%+1)"TO GO FOR CALIBR 
ATION PRESS SPACE BAR ELSE PRESS ANY 
KEY TO CONTINUE": IK=GET 

880 IF IK<>32 PRINTTAB(@,Y%+1)SPC(79) 
: ENDPROC 

896 INPUT'“ INPUT NUMBER ON TAPE COUNT 
ER "N1$% 

960 IFN1%=@ PRINT"ERROR ZERO ENTERED" 
: IK=INKEY (200) : ENDPROC 

910 IF C%=3 N2$=N1$:T2%=TS%DIVI1GG:C%= 
4: ENDPROC 

920 IF NI$=N2% PRINT"ERROR SAME NUMBE 
R ENTERED TWICE": IK=INKEY (20@) :GOTO890 

938 T1%=TS$DIV190: PROCCDR 
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949 IFD=@ PRINT"ERROR INSUFFICIENT AC 
CURACY"' "TRY AGAIN LATER": IK=INKEY (288) 
: ENDPROC 

950 PROCCX:C%=2:CS$=FNIC (TS$DIV1G@) 

968 PRINT'“CALIBRATION COMPLETED"' 

970 PRINT"YOUR D VALUE = ";D 

989 PRINT"YOUR R VALUE = ";R 

999 PRINT'" (Retain all digits. Next t 
ime you LOAD"'"the program enter R and 
D in Line 158.)" 

1660 PRINT'"ANY KEY TO CONTINUE" 

1618 IK=GET 

1628 ENDPROC 

1038 DEFPROCCDR 

1648 D=(T1$/N1%-T23/N2$) /PI/(N1$-N2%) 

1650 R=(TIS/N1$/(N1$-1) -T28/N2%/ (N23-1 
)) /PI/2/ (N2$-N1%) * (N1$-1) * (N2$-1) 

1668 ENDPROC 

1676 DEFFNIC (ST) 

1086 =STRS (INT ( (D-2*R+SQR ( (2*R-D) “2+4* 
ST8*D/PI) ) /2/D+@.5) ) 

1898 DEFPROCCX 

1106 FOR J%=1TONS:CS$ (J%)=FNTC (VAL (TS (J 
%)) ) :NEXT: ENDPROC 

1118 DEFPROCINS 

1115 VDU19,0,4,6,0,8:VDUI9,1,3,0,9,9 

1128 PROCTITLE 

1125 VDU7:PRINT''"WARNING THIS PROGRAM 

IS SELF"'"MODIFYING. BEFORE PROCEEDING 
"'"MAKE SURE YOU HAVE A COPY."''TAB(17) 
" ANY KEY TO START"; :IK=GET:CLS:*FX21,@ 

1130 PROCTITLE:VDU19,1,7,0,0,9,19,0,4, 
G,0,G 

1135 PRINT'"HOW TO USE THE PROGRAM"'"P 
ut the tape you want an index of in"™'"t 
he recorder. Zero the tape counter."''" 
You now have three options:" 

1146 PRINT"(1) MANUAL"'"Enter the numb 
ers on the counter"'"at the start of ea 
ch program. as"'"prompted." 

115@ PRINT" (2) AUTO"'"Let the program 
calculate the"'"tape counter readings; 
using default"'"R and D values previous 
ly determined"'"for your recorder and t 
ype of tape"'"and entered in line 15d." 

1168 PRINT"(3) CALIBRATE"'"Input two t 
ape counter readings to"'"calibrate the 

program for your"'"recorder and then p 
roceed as in (2)." 

1180 PRINT''TAB(17)"SHIFT TO START"; 

1198 REPEAT UNTILINKEY-1:*FX21,0 

1288 ENDPROC 

1216 : 

12286 DEF PROCTITLE 

1238 CLS 

1248 PRINTTAB(13);"TAPE INDEXER "; 

1258 ENDPROC 

1268 : 

5006 CLS:VDU19,1,3,9,0,0:@$=&281 06 

5005 PRINTTAB(17)"TAPE INDEX " 
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5010 Y$=1:RESTORE6QQ@ : READN3 : PRINT" NAM 
E"TAB (12) "B"TAB (16) "L"TAB (23) "TIME" TAB ( 


31) "TAPE" 
5628 FORI%=1 TONS 
5038 READNS$,T%3,C% 


5040 LS=RIGHTS (NS, 4) :BS=MIDS$ (NS, LENNS- 


5,2) :NS=LEFTS (NS, LENNS-6) 


5058 PRINTNSTAB (12) BSTAB (16) LSTAB (23) ; 


TSTAB (31) ;C% 
50660 NEXT 


NOTE: The program above uses some 
rather unconventional coding 
techniques, which also accounts for the 
fact that the line numbers do not 
follow our usual pattern. Do not 
renumber this program. 


MANUAL CALIBRATION 

Those whose cassette recorders do 
not have motor control should use this 
separate program to calibrate the 
system before using option 2 in the 
main program already described. When 
you run this’ calibration program, 
switch your cassette recorder to 'play' 
and note the counter reading on each of 
the two occasions that you hear a 
bleep. The program will then ask you to 
enter these two readings which are used 
to calculate the values of R and D, and 
these should then be included in the 
main indexer program at line 150. 


1@ REM PROGRAM NO MOTOR CALIBRATE 
2@ REM AUTHORS D.J. PILLING/ D. FELL 
3@ REM VERSION E1.@ 


49 REM ELBUG JULY 1984 

5@ REM PROGRAM SUBJECT TO COPYRIGHT 
68 : 

168 *OPT] 1 

118 MODE6 


126 VDU19,1,3,0,08,9 

138 @3=&20406 

146 PRINT"MANUAL CALIBRATION." 

158 PRINT'"REWIND TAPE TO START"'"ZER 
O TAPE COUNTER" 

168 REPEATUNTILINKEY (198) =TRUE 

17@ PRINT'"O.K. 2?" 

18G PRINT'"SWITCH TO PLAY AND HIT RET 


198 REPEATUNTILGET=1 3 

200 PRINT''"NOTE THE COUNTER VALUES O 
N THE TONES." 

218 TIME=@ 

228 X%=OPENUP ("""') 

238 T2%=TIME DIV 196 

248 SOUND17,-15,180,198 

250 REPEAT B%=BGET#X%: UNTILEOF #X$ 

268 SOUND17,-15,190,19 

276 TIS=TIME DIV 100 

280 CLOSE#X% 

298 INPUT"FIRST COUNTER VALUE "N2$'"S 
ECOND COUNTER VALUE "N1% 

388 PROCCDR 

318 PRINT"D VALUE IS "D'"R VALUE IS "R 

326 PRINT"NOTE THESE AND USE AT LINE 
150 OFTHE"'"MAIN PROGRAM. ALL DIGITS AR 
E SIGNIFICANT" 

338 END 

348 : 

1888 DEFPROCCDR 

1018 D=(T1%/N13-T2$/N2$) /PI/ (N1%-N23) 
1626 R=(TIS/N1$/(N1%-1) -T23/N2$/ (N23-1 
)) /PI/2/ (N2%-N1%) * (N1$-1) * (N23-1) 

1838 ENDPROC Py 


IHINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


STRANGE CRASH - R.Tobin 
Type G.0:G.0:G.0:G.0:G.0:....etc., until you've filled the buffer (about 6 lines 
in Mode 6). Then hit return. You will of course get the error 'No such line’ but it 


also has other effects... 


TAB COMMAND - R.Sterry 


When using the short, TAB(x) form of the TAB instruction (User guide p.188) to 
print further along the line, you may sometimes find that some text to the left of 
the printing position will be deleted. For example 

1@ PRINT"hello" :pause=INKEY (266) :VDU11 


20 PRINT TAB(2@) "there" 


The TAB(x,y) form of the instruction can be used to remedy this using the veos Basic 
system variable. VPOS is used by Basic to keep a record of which row on the screen 
is being used for printing. So if you find this problem in a program, then replace 


the TAB(x) with TAB(x,VPOS). In the example, line 28 would become: 


28 PRINT TAB(20,VPOS) "there" 
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ELECTRON BREAKOUT 


by Alan Webster 


Breakout is one of the classic computer games. Although other games 
May have more sophisticated graphics displays, this remains one of 
the simplest yet most addictive of computer games. 


The game of Breakout is very easy to 
understand, but nowhere as easy to 
play. A wall comprising several rows of 
colourful bricks is displayed across 
the top of the screen. You control a 
bat which you move left and right 
across the bottom of the screen, 
repeatedly hitting a bouncing ball at 
the wall, to demolish the bricks. The 
bounce is somewhat unpredictable and at 
times confusion reigns as the ball 
rebounds from several bricks and the 
surrounding frame in rapid succession. 
Break through the wall however, into 
the space above, and the bouncing ball 
will really go bananas! The ball can be 
"steered' from the bat, by moving the 
bat in the direction you wish the ball 
to travel as it hits the bat. 


At the start of a game you can 
select the degree of difficulty that 
you want to face - the degree of 
difficulty selected controls the size 
of your bat. To move the bat you use 
the usual Z (for left) and X (for 
right) keys. Complete the demolition of 
the whole wall anda wall of a new 
colour appears, slightly lower on _ the 
screen so that your reactions will need 
to get faster and faster. At the end of 
a wall you will get bonus points 
according to the time taken to demolish 
the wall. 


The game has the merit of being 
quite short, compared with many that we 
publish; it is good fun, and well worth 
Playing. 


PROGRAM NOTES 

It is quite difficult to write a 
fast moving action game in Basic on the 
Electron. To help, this program 
includes some short sections of machine 
code and direct references to memory 
locations to speed the game up. We 
shall be telling you more about these 


The object of this game is to demolish 
the brick wall by bouncing a ball at it 
Hhen you have destroyed a wall you go 
on to the next one. You score ie 


points 
ou knock ou and 
ives. 


The following keys are used for moving 


Z - Bat Left 
xX - Bat Right 


ss any key to start 


techniques in future issues of Elbug. 
Take care when typing the program in, 
particularly with these sections 
(1138-1246 and 1276-1458). You should 
save the program before attempting to 
run it, aS you would with any program 
that contains machine code. 


18 REM Program BREAKOUT 

26 REM Version EG@.7 

38 REM Author Alan Webster 

49 REM ELBUG July 1984 

58 REM Program Subject to Copyright 


188 ON ERROR GOTO 153d 
11@ MODE] 

12@ PROCchars 

138 PROCinstr 

148 MODES 

158 PROQnain 

160 IF FNend=1 GOTO 1190 
178 MODE6 

188 END 


1886 DEFPROCchars 

1018 VDU23,224,255,255,255,09,0,8,0,8 
1626 VDU23,225,9,9,0,12,3G6,30,398,12 
1638 VDU23,227,9,221,221,221,0,119,119 


1648 VDU23,228,7,7,7,7,7¢7,7,7 


ae 
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1058 VDU23,229,224,224,224,224,224,224 
224,224 

1668 ENDPROC 

1876 : 

1088 DEFPROCassemble 

1098 V=&FFEE 

1108 DIM space 59 

1118 FOR h=@ TO 2 STEP2 

1126 P%=space 

1139 [OPT h% 

1148 .screen 

1150 LDA #17:JSR V 

1168 LDA #1 :JSR V 

1178 LDY &7F:.wall LDX #18:.wall2 
1188 LDA #31:JSR V:TXA:JSR V 

1198 TYA:JSR V:LDA #227:JSR V 


i 


1266 DEX:CPX#1:BNE wall2 1550 IF ERR=17 END 

1218 DEY:CPY&89:BNE wall 1560 REPORT: PRINT" at line ";ERL 

1226 RTS 1570 END 

1238 .chr LDA#135:JSR SFFF4:STX &75:RTS 1580 : 

1248 ]:NEXT 1598 DEFPROCmain 

1258 ENDPROC 1608 VDU19,3,6,9,9,9 

1268 : 1618 CLS 

1276 DEFPROCgame 1620 SC%=0:LV3=3 

1280 ?&74=?&78 1638 C=G 

1298 ?&70=?&70+ (INKEY-98 AND ?&7@>2)-( 1648 VDU23,1,9;0;9;6; 

INKEY-67 AND ?&7@< (19-BL3) ) 1658 PROCassemble 

1388 COLOUR2 1660 REPEAT 

1318 IF?&78=?&74GOTO1 336 1678 VDU19,1,0,6,9,9 

1328 VDU31,?&74,29: PRINTSTRINGS (BL%,CH 1688 COLOUR128 
R$32) 1698 CALL screen 

1338 VDU31,?&78,29: PRINTSTRINGS (BL%,CH 1788 VDU19,1,(C MOD 7)+1,9,8,8 
R$224) 1718 S%=0 

1340 x=?&71 :y=?&72 1720 REPEAT 

1358 COLOUR3 1730 TIME=0 

1360 ?&71=?&71+mx:IF ?&71<2 OR ?&71>18 1740 won=FALSE: lost=FALSE 

?&71=?&71 -mx :mx=-mx : SOUND3,-18,2,2 1750 ?&70=9 

1376 2?&72=?&72+my:IF ?&72<2 ?&72=?&72- 1766 ?&71=RND(14) +2 
my :my=~my: SOUND2,-18,2,2 1778 mx=1 :my=-1 

1386 VDU31,?&71,?&72 1780 ?&72=RND(25-?&7F) +?&7F 

1398 CALL chr 1798 COLOUR2 

1460 IF ?&72>29 AND ?&75=32 LV%$=LV3-1: 1800 PRINTTAB (1,30) STRINGS (19,CHR$224) ; 
lost=TRUE:FORA$=188 TO@ STEP-1@:SOUND2, 181@ PRINTTAB (1,1) STRINGS (19,CHRS$224) ; 
-19,A%,1:NEXT: ENDPROC 1826 FORW$=1 TO3@:PRINTTAB (1,W%) ;CHRS2 
141@ PROCbrick 28; TAB (19,W%) CHR$229; 

1420 IF ?&72=29 AND ?&75=128 ?&72=28:m 1838 NEXT 
y=-my: SOUND1 ,-19,58, 2: PROCguide 1848 REPEAT 

1438 VDU31,?&71,?&72,225 1858 PROCgame 

1448 VDU31,x,y,32 1866 PRINTTAB(G,@) ;"Score=";SC% 

1456 ENDPROC 1876 PRINTTAB (12,0) ;"Lives=";LV% 

1468 : 1888 IF S%=1368 won=TRUE:S%=0 

1478 DEFFNend 1896 UNTIL lost OR won 

1489 COLOUR] 28:COLOUR1 1988 VDU31,?&70, 29: PRINTSTRINGS (BL%,CH 
1496 PRINTTAB(5,13) "Game Over." RS$32) 

1568 PRINTTAB(5,15)"New Game? ";CHRS12 1918 UNTIL LV%<1 OR won 
fh 1926 IF won C=C+1:VDU31,2?&71,2&72,32 
1510 INPUT""YS:IF YS="Y" =1 ELSE =@ 1938 ?&8G0=?&80+1 2 ?&7F=?&7F+1 

1528 : 1949 IF 1000-(TIME/1@@)<@ GOTO196@ 
1538 ON ERROR OFF 

1546 MODE 7 — 
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1958 IF won PRINTTAB(4,12) "BONUS =>";: 
BS=1000-(TIME/10@) : PRINTTAB(13,12) ;B%:S 
C%=SCE+BE 

1968 IF won FORA=1T04@@@: NEXT: PRINTTAB 
(4,12) STRINGS (13,CHR$32) :UNTIL LV%<1 

1976 *FX15 


2698 PRINT''"Please enter skill level 
- 1 to 7 (levell is easy, level 7 is ha 
ra) 

2166 REPEAT:BL3=GET-48: UNTIL BL$>@ AND 
BL3<8:VDU BL$+48:BL%=8-BL$ 

2118 PRINT'''"Press any key to start:" 


1989 ENDPROC 7:G=GET 

1998 : 2126 2?&80=2:?&7F=19 

2688 DEFPROCinstr 2138 ENDPROC 

2018 VDU19,3,6,0,9,0 2146 : 

2620 PRINT''' 2158 DEFPROCbrick 

2638 COLOUR2: PRINTTAB (16) "BREAKOUT" :CO 2160 IF NOT(?&75=131 OR ?&75=128) ENDP 


LOUR] :COLOUR13@:PRINTTAB(15,VPOS)STRING ROC 

$(18,CHR$227) 2176 IF ?&75=131 SC%=SC$+19:S%=S3+1G 
2048 COLOUR2:COLOUR129:PRINTTAB(12,VPO 2180 IF ?&75=131 SOUND&16,-4,100,4:my= 
S+2)"by Alan Webster" -my 

2656 PRINT'' ':COLOUR3:COLOUR1 28 2198 mx=SGN (mx) 

2068 PRINT" The object of this game i 2206 IFmx=@ mx=-1 


s to demolishthe brick wall by bouncing 2218 mx=SGN (mx) * (RND(2)-1) 


a ball at it.When you have destroyed 2228 IF RND(2)=1 mx=-mx 

a wall, you goon to the next one. You 223@ ENDPROC 

score 19 pointsfor each brick that yo 2246 : 

u knock out andyou start with three 1 2258 DEFPROCguide 

ives." 2268 G=G 

2076 PRINT'" The following keys are us 2276 IF INKEY-67 mx=1:G=1 

ed for moving:" 228@ IF INKEY-98 mx=-1:G=1 

2080 PRINTTAB(1@)"Z - Bat Left"'TAB(19 2298 IF G=@ PROCbrick 

)"X - Bat Right" 2388 ENDPROC @ 


HINTS HINTS HINTS HINTS HINTS HINTS HINT 


SHORTENED _'IF' STATEMENT - R.Sterry 


HINTS HINTS 


The 
example 
166 IF animal%=5 THEN PRINT "It's the wolf!" 
can be shortened to 
160 IF ariimal$=5 PRINT "It's the wolf!" 
which is not quite so clear as the former but may prove to be convenient on some 
occasions. 


IF-THEN statement can be shortened by leaving out the THEN keyword. For 


ERROR REPORTING AND EDITING - R.Sterry 
When this short error trapping routine (lines 108906 to 10048) is added to your 
Basic program, it will only take effect if your program fails with an error, but it 
will return the computer to you in a controlled manner and display the program line 
that caused the program to fail. 
18 ON ERROR GOTO 10000 
108 nonsense nonsense nonsense : 
19968 MODE 6:IF ERR=17 THEN 18050 
16018 REPORT: PRINT" at line ";ERL:*FX15,G@ 
16826 err$="L."+STR$ (ERL) +CHR$ (11) +CHRS (13) 
16038 FOR bit%=1 TO LEN(errS) 
18648 OSCLI ("FX138,6,"+STRS (ASC (MIDS (errS,bit%,1)))):NEXT 
16858 END 
Line 19 initiates an error trapping sequence so that lines 19000 onwards are 
executed in the event of an error in Basic. Line 198 is included so that if you run 
the short program as listed, you will see how this works. 


REM this is nonsense for Basic 
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In our continuing series on Electron graphics we turn our attention 
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to some useful and interesting techniques for including colour in 


screen displays. 


In this month's article we shall 
pe concentrating on the use of colour 
when drawing in any of the graphics 
modes. The number of colours available 
depends on the mode chosen am is 
related also to the resolution of the 
graphics screen as was described in the 
March issue of ELBUG. In our examples 
we will concentrate on the two 
four-colour modes (modes 1 and 5). 


In a four colour mode, the four 
colours are black, red, yellow and 
white (though these can be changed as 
we shall see later), and these colours 
are referred to by the numbers @, 1, 2 
and 3. Even if we do change the actual 
colours themselves, these same four 
numbers are always used to specify 
colours in modes 1 and 5. In both 
text and graphics we can define a 
foreground amd a background colour. The 
foreground colour is a number in the 
range @ to 3, while a background colour 
has 128 added to the colour number. 


In graphics, which is what we are 
principally concerned with here, the 
GCOL instruction is used to specify 
what colour we want to use at any stage 
of our program. For example if we start 
a program with the lines: 


106 MODE 1 

114 GCOL G,1 
126 GCOL 8,136 
138 CLG 


then after selecting mode 1, the 
instructions specify red (colour 1) for 
the foreground colour, and 138 
(i.e.128+2) for the background colour, 
which is thus yellow. Remember that a 
GCOL instruction never, by itself, 
changes the colour of anything already 
visible on the screen. Hence the CLG 
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instruction at line 138 which actually 
paints the whole screen area in the 
background colour of yellow. 


The GCOL instruction always 
requires the use of two numbers. The 
second is the colour as described 
above, while the first determines the 
mode of plotting that will take place. 
This number will normally be in the 
range of @ to 4. The value of 48 used 
above means that any graphics will be 
drawn in_ the colour specified 
regardless of any other colours already 
existing in the same area of the 
screen. 


You will have seen the use of mode 
3 (or Exclusive-OR) plotting in some of 
the early articles in this series about” 
moving characters across the screen. 
Using this technique, any shape or 
character can be made to move on the 
screen by drawing the shape, then 
drawing the shape a second time in the 
same position before repeating the 
process in a new position. The use of 
Exclusive-OR plotting means that when a 
shape is plotted in the same position a 
second time, it effectively disappears 
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from the screen, and the background is 
restored to its original colour. 


The only disadvantage of 
Exclusive-OR plotting is that an object 
appears to change colour when it is 
plotted over a background other than 
black. This article will show you how 
to control this to produce even more 
interesting effects. 


Let's now write a program that we 
can use to demonstrate some new ideas. 
The main idea of this program is to 
show a plane flying across a 
mountainous landscape. 


13 REM Program PLANE 

20 REM Version E1.9 

30 REM Author Mike Williams 

40 REM ELBUG July 1984 

50 REM Program subject to copyright 
60 : 

168 MODE 1 

165 ON ERROR GOTO 196 

118 PROCcolours 

12@ PROCdefplane 

138 PROGnountains 

14@ REPEAT 

158 PROC£lyplane 

160 UNTIL FALSE 

176 END 
186 : 

198 ON ERROR OFF:MODE 6 
200 IF ERR<>17 REPORT:PRINT" at line 


218 END 

228 : 

1088 DEF PROCcolours 
1688 ENDPROC 


1100 DEF PROCdefplane 
111@ VDU23,224,0,48,120,127,127,3,7,7 


1128 VDU23,225,08,0,6,254,255,192,128,0 


1138 plane$=CHR$224+CHR$225 
1148 ENDPROC 


1268 DEF PROCmountains 
1218 GCOLG,1 


12286 MOVE 8,@:MOVE 300,8069:PLOT85,790,@ 
1236 MOVE 580,6:MOVE 900,600: PLOT85,128 


1248 ENDPROC 


1388 DEF PROCflyplane 

1316 GCOL3,2:VDU5S 

1326 FOR I%=@ TO 1216 STEP 8 
133@ PROCplane(I$,50@) 

1346 NEXT I% 


1358 vDU4 

1368 ENDPROC 

1378 : 

1468 DEF PROCplane(xpos height) 
1416 MOVE xpos,height:PRINT plane$ 
1420 Z%=INKEY (1) 

1438 MOVE xpos,height:PRINT planeS$ 
1448 ENDPROC 


The main program is quite short. The 
procedure called PROCcolours will be 
filled in later. The procedure 
PROCdefplane defines new characters 
(ASCII 224 and 225) that together form 
the crude outline of a plane. For 
convenience the two character string is 
assigned to the variable plane$, just 
as described in parts 2 and 3 of this 
series (issues 2 and 3 of ELBUG). 


The procedure PROGmountains draws 
two mountains on the screen using 
PLOT85, the triangle plotting 
instruction that we looked at in issue 
5. This procedure also selects colour 1 
(red) for the mountains. 


The next part of the program is a 
loop that is repeated indefinitely. 
Each repetition calls the procedure 
PROCflyplane to fly the plane across 
the screen. This procedure itself is 
basically a FOR-NEXT loop which in 
turn calls the further procedure 
PROCplane to plot the plane in a series 
of positions across the screen. Notice 
the step size of 8, to achieve 
reasonable movement across the screen. 
Larger step sizes will produce faster 
but jerkier movement. The minimum step 
size in this mode to achieve real 
movement is 4 (see the graphics article 
in issue 6 of ELBUG). The final value 
in the FOR loop is the last position in 
which the whole plane will be visible 
on the screen (each character in mode 1 
is equivalent to 32 graphics units - 
i.e.1288/48), and avoids any 
complications with part planes. 


The procedure PROCflyplane also 
selects the colour (yellow) and 
Exclusive-OR plotting for the drawing 
of the plane. It also uses VDU5 so that 
the two characters that form the plane 
can be plotted at the graphics cursor 
position (this is restored to normal 
with a VDU4 at the end of the 
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procedure). The procedure PROCplane, 
which actually displays the plane on 
the screen, is called with two 
parameters, the horizontal and vertical 
position of the plane on the screen in 
graphics co-ordinates. 


Lastly, the procedure PROCplane 
displays the plane on the screen for a 
short time before overwriting it in the 
same position to make’ the plane 
disappear. This gives the slightly 
flickering effect as the plane is first 
drawn ‘and then erased as it moves 
across the screen. Changing the value 
of the INKEY statement will also affect 
the apparent speed of movement of the 
plane. 


If you run the program as_ listed 
above, you should repeatedly see the 
plane move across the screen from left 
to right. Unfortunately, the yellow 
plane changes to white as it moves 
across the mountains. 


To see why, we will now look in 
detail at what happens with colours 
when we use Exclusive-OR plotting. We 
shall then be able to change our 
program slightly so that the plane 
remains the same colour, either moving 
in front of the mountains, or behind 
them as we choose. 


First of all we need to write 


down the four colour numbers in binary: 


The Exclusive-OR operation compares the 
bits (binary digits) of the two colour 
numbers together (foreground and 
background colours), and produces a 
further binary number which determines 
the colour we see. If the two binary 
digits are different then a '1' 
results, if they are the same then a 
'O' results. 


Now the plane is yellow (colour 2) 
and the mountains are red (colour 1). 
Comparing them together and performing 
an Exclusive-OR operation gives the 
following results: 


25 


yellow ——> 19 


red — 01 
11 ——» white 


In each case the corresponding binary 
digits are different and a '1' results 
in both positions. This is the binary 
for 3 which is white, the colour we see 
for the plane as it moves across the 
mountains. 


Now if only colour 3 were not white 
but red, then the colour of the plane 
as it crosses the mountains would make 
it invisible, and it would in fact 
appear to move behind the mountains on 
the screen. In fact it is quite easy to 
do this using the VDU19 instruction. 
This allows us to specify any colour 
number (for the mode we are in), and 
the actual colour (out of the 16 
available flashing and non-flashing 
colours) that we would like it to be. 
The two numbers must always be followed 
by three zeros as in the examples. All 
the 16 colours and their corresponding 
numbers are as specified for mode 2 in 
the User Guide on page 141. In this 
case, add the following line to the 
program as part of the procedure 
PROCcolours: 


1618 VDU19,3,1,0,8,8 


This changes colour 3 (in mode 1) to 
colour 1 which is red. If you enter 
this line and re-run the program you 
should = see the desired effect. 
Alternatively, use this version: 


1618 VDU19,3,3,9,0,8 


This time colour 3 (out of the 4 in 
mode 1) is changed to colour 3 (out of 
16), and thus the plane remains yellow 
throughout. The VDU 19 instruction is 
very useful as it means that in a mode 
like mode 1 where only four colours are 
available, we can choose which four 
colours we want to use. We don't have 
to stay with the default colours of 
black, red, yellow and white. 


To see this, add the following four 
lines to the program to make up the 
procedure PROCcolours: 

es 
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1618 VDU19, 
1629 VDUI9, 
1938 VDUI19, 
1646 VDU19, 


This has the effect of changing black 
to cyan (for the sky), red to green 
(for the mountains), yellow to blue 
(for the plane), and white to green (so 
that the plane appears to fly behind 
the mountains). 


The VDUI9 instruction is very useful 
in allowing you to choose the colours 
that you to see onthe screen. Be 
warned, however, aS unlike the GCOL 
instruction, VDUI9. can have-= an 
immediate effect on the screen display. 


red on the screen changing immediately 
into blue. You are still limited by the 
mode you use as to how many colours you 
can have on the screen at any one time, 
but at least you can now choose which 
those will be. 


As we have seen, four colour modes 
(modes 1 and 5) allow you to have not 
only a foreground (the mountains) and a 
background (the sky), but also an 
apparent middle ground (occupied by 
the plane). The 16 colour mode 2 allows 
you to have even more layers to add 
depth to your pictures. I'll leave 
experimenting with this mode to you. 
Next month we will have a look at some 
more interesting things we can do with 


For example, changing red into blue 
will result in all areas or lines in 


colours on the Electron. 


POINTS ARISING 


DOMINOES GAME (ELBUG Vol.1 No.5) 

We have had some correspondence regarding this game published in the April issue 
of ELBUG. Because of the memory space required by this program, the coding had been 
"squeezed', to remove any unnecessary spaces. However, this can only be done after a 
program has been entered, and as a result two lines in the program will cause 
problems if entered as listed. The correct versions (and the spaces are important) 
are: 

33@ IF ELK% PROCELK ELSE PROCdisphand(1,@) :PROCplayer 

1476 IF bd%>pd$ ELK$=TRUE ELSE ELK%=FALSE:s$=n$ 
You should also note that there should be a final closing bracket at the end of line 
1676 (this had slipped slightly in production but was otherwise quite clear) while 
the fourth variable at line 2430 should be 'j%' and not just 'j'. Because this is in 
a LOCAL statement this small error causes no problem at all. 


The version on the magazine cassette is quite correct apart from _ the 
inconsequential error in line 2430. 


This month's issue of ELBUG sees the start of a short series on the problems of 


debugging programs, which should help you to sort out problems like these described 
above when they occur in your own programs, as well as in the magazine. 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


CLEARING SCREENS WITH WINDOWS - K.Allen 

With no graphics or text windows defined (see the VDU24 and VDU28 commands on 
pages 110 and 112 of the User Guide), the two commands CLG and CLS have the same 
effect, i.e. clearing the screen. However, if you define a graphics and/or a text 
window, CLS will only clear the text window and CLG will only clear the graphics 
window. If only a graphics window is defined, then CLG will clear this window, but 
CLS will clear the whole screen. Similarly, with only a text window defined, CLS 
will clear this window and CLG clears the whole screen. The reason for this is 
because CLG and CLS each clears the whole graphics or text window respectively. If 
any part of one window overlaps the other, then it will be cleared by either of the 
clear commands. Initially, both text and graphics windows are set to the whole 
screen area by default. 
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SCRAMBLE YOUR SOFTWARE = PROGRAM PROTECTION 


by P Boardman 


This interesting little utility is for those of you who wish to 
protect your own programs, making them unusable by anyone who does 
not know a prearranged password. It comes in the form of a procedure 
which must be added on to the end of the Basic program to be 


protected. 


To use it, first type the procedure 
in and save it away on cassette. Then 
‘spool’ it out to cassette under a 
different name. Spooling is achieved as 
follows: 

*SPOOL LOCKSP <return> 
Set recorder to 'Record' 

LIST <return> 

*SPOOL <return> 
Stop recorder. 


This now means that you have a 


program saved, 
ready to be 
*EXECed on to f 
the end of your 
program to be | 
protected (see ( 
the article on 


the use of ( 


version of the (> nmem = «=, 


126 END 
) 32006 DEFPROCLOCK 


functions and 32636 REPEAT 
procedures in 
issue 5 of 
ELBUG for a ( 
full explana- ; 
tion of *SPOOL 

and *EXEC when ( ) 
used to merge i 
programs. See 


) 32028 I%=PAGE+3 


LEN KEYS,1)) 


EOR Y$) 
32078 NEXT 
32688 I%=X%+3 


also the User 32106 CLEAR 
Guide page gly, 22119 EnpRoc 
209). a 


Once that has been done, = in 
your Basic program making sure that 
no line numbers exceed 32000. Then 
type: 

*EXEC LOCKSP <return> 
and wait for the spooled version of the 
protection routine to be loaded on to 
the end of your program ignoring any 
error messages that may occur. 


To scramble the program, type 
PROCLOCK, and type in a password when 
prompted. The password may contain any 
characters and be up to 256 characters 


ELBUG 


110 PRINT "THIS PROGRAM IS UNLOCKED" 


32618 INPUT"PASSWORD ",KEYS$ ( 
32640 FORX%=I$+1 TO I3-4+?1% ( 
) 32058 Y%=&1F AND (ASC MID$(KEY$,X% MOD ( 


32066 ?X%=(?X% AND &EG)+((?X% AND &1F) 


32098 UNTILX%>TOP-&D@ 
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in length, _ but you will have to 
remember the password you choose, so 
keep it short and meaningful. Once the 
password has been entered, the machine 
will pause, while it scrambles your 
program, changing the bytes of code and 
effectively locking your program. When 
that is completed, LIST your program 
and look at the code - it should make 
horrific reading! 


SAVE this scrambled version away and 
ae) <=. use it as your 


r= Saw ea ee a 


) 186 REM EXAMPLE PROGRAM 


a main copy 

y (although it 

( ) cannot, of 

course, be RUN in 

| its scrambled 
) state). 


to use the 
program, simply 
load it in and 
) type PROCLOCK. 
i Then type in the 
same password as 
before and your 
H program will be 
) ‘un-scrambled'. 


al the wrong 
- — password, the 
program will be 
parties again amd at this stage the 
program cannot be recovered, so take 


care not to forget the password. 


) When you want 


Note that &sD@ at line 32096 
represents the length (plus one) of the 
LOCK procedure and is included in order 
to prevent the LOCK procedure itself 
being scrambled! Do be careful to type 
the procedure in EXACTLY as _ listed, 
otherwise PROClock itself may become 
scrambled. This will produce error 
messages, and program recovery will not 
generally be possible. 
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You can try out the LOCK procedure 
by typing in the whole program which 
comprises the lock procedure together 
with three additional lines 
representing a user program. Then 
proceed as follows (press Return after 
each line): 

LIST 

RUN 
The three line program is listed, 
together with the lock procedure, and 
runs correctly. 


PROClLock 

LIST 
The first three lines are now 
scrambled, and the program, if saved in 
this form, is effectively locked - i.e. 
no one else can use it. 

PROClock 


Once again, after unlocking, the 
program lists and runs correctly. @ 


——oOoC— sss... 7 


SCREEN DISPLAY COMPETITION RESULTS 


In the April isue of ELBUG (Vol.1, 
No.5, p.11) we set a competition in the 
"Saving and Loading of Screen Displays" 
article. What we wanted to see was what 
other Electron users could do with 
their computer display facilities. As 
promised the best results of the 
competition, which closed on April 38th, 
are published in this issue of the 
magazine. 


Standards were very high but after 
some deliberation, the winner chosen 
was: 

Kevin Allen 


Congratulations to Kevin who will be 
receiving a SIR ROM expansion board for 
his Electron in due course as prize for 
his considerable efforts. We would 
also like to commend the effort of 
Mr.F.Lendon whose display is also shown 
here. It's a great shame that only the 
most extravagant of print qualities 
might do justice to the winning picture 
and unfortunatley we cannot offer that 
here. 


Keep your eyes open for other ELBUG 
competitions. 


Kevin Allen's winning entry. 


Vauxhall Astra car by F.Lendon. & 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 


PHASE SELECTION IN MICROPOWER'S "CROAKER" - J.Brunyee & J.Spinks 
If you find Program Power's Croaker too easy to start with, then during the part 
of the program that displays which phase of the game you are starting, press Escape 


This should return 1 but it actually returns @: @ 


PRINT (40.21*188) MOD 1G 
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PONTOON 


by Nick Day 


Elbug Vol.1 No.4, can be repre- 
sented very well on the Electron 
with its high resolution of 
graphics. If you like card games, 
you will find the effort 
of typing this program in 
will be well rewarded. 


Having presented 
you with a nice baize 
cloth, the computer is 
ready to preside as 
banker and adjudicator 
over a game of Pontoon 
with you. All the card 
shuffling, dealing and 
betting is handled by 
the program offering 
no opportunity .for you to 
cheat! So this is your challenge; to 
beat the Electron. 


If you do not know how to play 
Pontoon, the idea of the game is to win 
as much money as possible from the 
"Banker'. Your hand (which may consist 
of between two and five cards) must 
total as near to 21 with their face 
values as possible without actually 
exceeding 21; an ace counts as 1 or 11 
(the choice is yours). The rules of 
this version of Pontoon are that the 
best possible hand is a 'Pontoon' which 
is an ace and a picture card (11 + 10) 
which will give you 21. The second 
highest hand is a_ five card trick, and 
is accomplished by getting five cards 
whose total is not more than than 21, 
for example ace-4-6-3-4 would give you 
18. The next best hands are 21 with an 
ace and 16, then 21 with more than 2 
cards. After that the next best hand is 
20, then 19 etc. The number of cards is 
unimportant other than in a Pontoon 
itself, and clearly, in five card 
tricks. 


You are asked to place your bet when 
you are given your first card. Ypu 
should determine the amount that you 
bet by examining your first card, an 
ace would be a larger bet than, say, a 
5. After betting on the first card 
(just press a key between 1 and 9 to 


Here is a fun implementation of the card game 
Pontoon or 21. Card games like Killer Dice in 


@eeestes, 


Having presented you with a nice 
baize cloth, the computer is ready to 
preside as banker and adjudicator over 
a game of Pontoon with you. All the 
card shuffling, dealing and betting is 
handled by the program offering no 
opportunity for you to cheat! So this 
is your challenge; to beat the 
Electron. 


you want another card you can 'buy' 
this by betting any amount from 1 up to 
the amount of your previous bet on this 
hand, or you could simply 'twist' the 
next card which means you can have the 
card, but you may not increase your bet 
any further. 


If you get over 21 you '‘'bust' and 
the banker wins regardless. When you 
have finished your turn, and have 
"stuck' with your cards, the computer 
will take its turn to play. The 
computer as banker need only achieve a 
total equal to or greater than your 
hand to win. If the computer 'sticks' 
on a lower total than you, or 'busts', 
then you win. 


PROGRAM NOTES 


To save space the procedure names 


SP ere ET 
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have been shortened, but the most 
important procedures are outlined 
below. 


PROCse Sets up the sound envelopes, 
variables and characters. 

PROCshu Shuffles the 52 cards. 

PROCsh Decides which card to display. 

PROC2 to PROCk draws the corresponding 
card, for example: 

PROC} Draws the Jack. 

PROCG Draws the Queen. 

PROCk Draws the King. 

Take care when typing in this 
program, especially with the three 
procedures PROC}, PROCq and PROCk, 
otherwise you will be confronted with 
very strange cards indeed! For further 
reference on the method used to draw 
these cards see the article on Electron 
Graphics in Elbug Vol.1 No.5. 


1@ REM PROGRAM PONTOON 
208 REM VERSION E@.2 

38 REM AUTHOR N.DAY 

40 REM ELBUG JULY 1984 
5@ REM PROGRAM SUBJECT TO COPYRIGHT 
68 : 

106 ON ERROR GOTO 420 

11@ MODE] 

128 PROCse 
138 REPEAT 

148 CLG 


150 IFH$<1 VDU4:PRINTTAB(1,3@);"you h 


ave run out of money!":END 
168 GCOLG,¢@ 


176 P%$=G:a=G:b=G9:t=G: 18=6:w=G:p=G:FS= 


8:bpon=6:bust=6 


186 IFP(1)MOD13=P(3)MOD13 temp=P (3) :P 


(3) =P (4) :P (4) =temp 


198 FORC%=1T01@ :B(C%)=(P(C%)MOD13) +1 
:S (C$) =(P (CS) DIV13) +1: IFS(C%)=5 S(C%) =4 

260 NEXT 

218 FORC%=1TO12:N(C%) =@:NEXT 

226 FORD%=1T012 

236 *FX15,1 

248 PROCki 

258 IFD%<8 ORD$>9 P$=P$+1:L(P%)=P(1) 

268 PROCp 

278 PROCE 

280 N(D%)=N% 

290 IFD%<8:IFD%=1 ORD%=3 ORD%>4: IFN$= 
1 a=TRUE 

388 PROCsh 

310 IFN(D%)>10 N(D%)=10 

328 IFD$=2 PROCbet 

338 IFD%>3 ANDD%<8 PROCscore 

348 IFD%>8 ANDNOTbust PROCbank 

358 NEXT: PROCr : PROCi: PROCrep 

368 VDU4:PRINTTAB(1,3@);"You have "H% 
7" pound"; : IFH$>1 PRINT; "s":VDUS 

378 PROGn("ANOTHER HAND?") 

38@ REPEAT:A%$=GET: UNTILA%=89 ORA%=78: 
UNTILA$=78 

398 VDU4:PROCm(" ") :VDU4: PRINTTAB(1,3 
@);"You finished with "H%;" pound"; :IFH 
$>1 PRINT;"s" 

400 END 

416 : 

420 ON ERROR OFF:MODE 6 

430 *FX4 

446 *FX12 

450 IF ERR=17 END 

466 REPORT: PRINT" at line “;ERL 

478 END 


1866 DEF PROCse 

1818 p=@6:bpon=0 

1626 ENVELOPE1,1,0,100,0,50,2,2,5,106, 
@,126,98,180 

16386 ENVELOPE2,2,0,40,5,-10,5,5,10,18, 
G,-108,108,40 

1640 ENVELOPE3,3,0,0,8,1,1,1,50,-4,8,- 
4,126,890 

1050 *FX11,¢ 

1068 *FX4,1 

1676 *FX262,32 

1088 H3=58 

1898 DIMB(1@) ,S(18) ,L(18) ,N(12) 

1168 VDU23; 8202; 6; 9; 0; 

111@ VDU24,48; 128; 1232; 960; 

1128 VDU19,2,2;9; 

1138 GCOLG,136 

1148 CLG 

1158 VDU23,224,24,66,126,126,255,255,2 
19,68 

1166 VDU23,225,24,60,98,255,255,90,60, 
126 

1176 VDU23,226,24,60,126,255,255,126,6 


6,24 
— 
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1188 VDU23,227,102,255,255,255,255, 126 
760,24 

1198 VDU23,228,76,82,82,82,82,82,82,76 

1200 VDU23,229,255,255,255,255,255,255 
7 255,255 

1218 G3=6 

1228 PROCshu 

1230 G%=G$+1 

1248 ENDPROC 

1256 : 

1268 DEF PROCsh 

127@ SOUNDG,1,4,4 

1288 GCOLG, 3:MOVEX%, Y$:MOVEX$+1608,Y%:P 
LOT85 ,X%,Y$+256: PLOT85 ,X3+160,Y%+256:VD 
us 

1296 IFD%=2 ORD%=4 PROCb:ENDPROC 

1308 IFS%<3 GCOLG,1 ELSE GCOLG,@ 

1318 MOVEX$, Y$+250: PRINTNS: IFN$<11 MOV 
EX$+128,Y$+32: PRINTNS 

1328 IFN%=1 PROCS 

1330 IFN$=2 ORN%=3 PROC2 

1349 IFN%>3 ANDN%<11 PROC4 

1358 IFN%=11 PROC} 

1368 IFN%=12 PROCq 

1370 IFN%=13 PROCk 

138@ ENDPROC 

1398 : 

1489 DEFPROCE 

1410 IFD$=8 NS=N(2) :S%=S (2) :GOTO1 460 

1420 IFD%=9 NS=N(4) :S%=S (4) :GOTO1468 

143@ N%=(P(1)MOD13) +1 

1449 S%=(P(1)DIV13)+1:IFS%=5 S%=4 

1458 FORC%=1T051 :P(C%) =P (C$+1) :NEXT 

1468 RESTORE151¢@ 

1476 FOR PIP=1T0O13 

1488 READ NUMBERS 

1490 IFN$=PIP NS=NUMBERS 

1508 NEXT 

15186 DATAA,2,3,4,5,6,7,8,9,10,3,Q,K 

1520 IFNS="10" NS=CHRS (228) 

1530 IFS%=1 SS=CHRS (227) 

1540 IFS%=2 SS=CHRS$ (226) 

155@ IFS%=3 SS=CHRS (225) 

1568 IFS%=4 SS=CHRS (224) 

15786 ENDPROC 

1580 : 

1598 DEF PROC2:MOVEX$+64 , Y$+192: PRINTS 
S:MOVEX3+64 , Y$+96: PRINTSS: IFN3=3 MOVEX 
$+64 ,Y3+146: PRINTSS 

1688 ENDPROC 

1618 : 

162G DEFPROC4:MOVEX%+32,Y%+224: PRINTSS 
:MOVEX3+32, Y%+64: PRINTSS :MOVEX3+96 , Y3+6 
4: PRINTSS:MOVEX3+96 , Y3+224: PRINTSS 

1630 IFNS=CHR$(228) PROC9:PROC2: ENDPROC 

1640 IFNS="5" OR NS="9" PROCS 

1658 IFNS="6"0R NS="7" ORNS="8" PROC6 

1668 ENDPROC 

1676 : 

1688 DEF PROC5:MOVEX$+64,Y%+146: PRINTSS 


ELBUG 


JULY 1984 


31 


1698 IFNS="9" PROC9 

1708 ENDPROC 

1718 : 

1728 DEFPROC9:MOVEX$+32,Y$+175:PRINTSS 
:MOVEX3+32,Y%+1 16: PRINTSS :MOVEX%+96, Y$+ 
116: PRINTSS :MOVEX$+96 , Y$+175: PRINTSS: EN 
DPROC 

1730 : 

1748 DEFPROC6:MOVEX%+32, Y%+1 46: PRINTSS 
:MOVEX$+96 , Y$+146: PRINTSS: IFNS="7" ORNS 
="8" PROC7 

175@ ENDPROC 

1768 : 

1776 DEFPROC7 

1786 MOVEX$+64, Y%+119: PRINTSS 

1799 IFNS="8" MOVEX$+64,Y%+187: PRINTSS 

1886 ENDPROC 

1816 : 

1828 DEFPROCJ:GCOLG, @:MOVEX$+32 , Y%+32: 
MOVEX$+32, Y$+112: PLOT85,X$+88 ,Y$+32:MOV 
EX$+112,Y%+32:MOVEX$+112,Y%+96: PLOT85,X 
$+96,Y3+60: PLOT85 ,X3+96, Y3+1 28 

1838 GCOLG, 1 :MOVEX%+92, Y$+128 :MOVEX$+9 
2,Y%+80: PLOT85 ,X3+64, Y3+1 28 :MOVEX3+32,Y 
$+128:MOVEX$+4G, Y$+128: PLOT85 , X3+96, YS+ 
32: PLOT85,X$+112,Y%+32 :MOVEX3+40 , Y3+32: 
MOVEX3+89 , Y$+32 

1848 PLOT85,X%+40,Y%+8G :MOVEX$+1 20, Y3+ 
176 :MOVEX$+1 20, Y%$+32: PLOT85,X$+128,Y3+1 
76: PLOT85 , X$+1 28, Y3+32 

1858 GCOLG, G:MOVEX$+64 , Y$+128 :MOVEX3+4 
@,Y%+128:PLOT85 ,X3+64, Y$+192: PLOT85, X$+ 
48, Y%+192 

1868 GCOLG, 1:MOVEX$+112,Y%+192:PLOT85, 
X$+128,Y$+224 :MOVEX$+48 , Y$+192: PLOT85,X 
$+32,Y$+224 

187@ GCOLG,@:MOVEX%+76 , Y$+1 44: DRAWX3+9 
2,Y3+144 :MOVEX$+80 , Y+1 56: DRAWX3+88 , YS+ 
156: DRAWX$+88 , Y3+168 s:MOVEX3+80, YS+184:D 
RAWX$+72 , Y3+1 76 :MOVEX$+1 62, Y$+184: DRAWX 
$+96 , YS+176 

1888 GCOLG, 1 :MOVEX$+1 94, Y$+2G2 s:MOVEX3+ 
112,Y3+224: PLOT85,X%+56,Y%+202: PLOT85,X 
$+48, Y3+224: PROCPIC: ENDPROC 

1898 : 

1986 DEF PROCPIC 

1918 GCOLG,& 

1928 MOVEX%$+32 , Y%+32: DRAWX$+1 28, Y$+32: 
DRAWX%+1 28 , Y3+224: DRAWX$+32, Y3+224: DRAW 
X3+32,Y%+32 

1938 IFS%<3 GCOLG,1 

1948 MOVEX$+132,Y%+64: PRINTNS :MOVEX$, Y 
$+218: PRINTSS :MOVEX$+1 35, Y$+32: PRINTSS 

1958 ENDPROC 

1968 : 

1976 DEFPROCk : GCOLG, 1 :MOVEX$+32 ,Y$+224 
:MOVEX3+48 , YS$+192: PLOT85 , X3+128,Y%+224: 
PLOT85 ,X$+112,Y$+192 
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1988 GCOLG, 8: FORH=1 1 2TO8SSTEP-8 :MOVEXS 
+H, Y$+1 92: DRAWX$+H+16, Y$+128: NEXT: FORH= 
88TO64STEP-8 :MOVEX%+H, Y$+1 44: DRAWXS+H+1 
6,Y3+128: NEXT 

1998 MOVEX$+8@ , Y$+152: DRAWX$+6G , Y$+152 
:MOVEX3+72 , Y3+1 60: DRAWX3+6@ , Y$+1 52 :MOVE 
X$+72,Y%+160 : DRAWX$+68, Y$+1 80 : DRAWX3+52 
7Y3+18G:MOVEX3+89 , YS+1 80: DRAWX3+64 , YS+1 
80 :MOVEX$+48 , Y$+192: DRAWX$+72, Y$+128:MO 
VEX%+32,Y%+112: PLOT85, X$+32,Y8+32 

2608 MOVEX%+72, Y%+128:PLOT85 , X$+1 28, Y% 
+128 

2619 PLOT85,X%+128,Y$+32:PLOT85, X$+32, 
Y%+32:GCOLG, 1 sMOVEX$+32 , Y3+64 :MOVEXS+1 2 
8, Y%+128:PLOT85 ,X$+32, Y$+32: PLOT85,X3+1 
28,Y%+96:GCOLG,3 

2020 MOVEX$+44 , Y$+229: PRINT"X" :MOVEX$+ 
68, Y$+220: PRINT" X" sMOVEX$+92, Y$+22G: PRI 
NT"x" 

2038 MOVEX$+48 , Y$+32:MOVEX3+64 , Y$+32:P 
LOT85 ,X3+48 , Y%+1 28: PLOT85 ,X3+64, Y$+128: 
MOVEX$+112,Y$+128:MOVEX%+1 12, Y%+32: PLOT 
85,X3+96 ,Y%+128: PLOT85 ,X$+96, Y$+32:GCOL 
0 ,@:FORH=1 32TO64STEP-1 6 :MOVEX$+44 , YS+H: 
PRINT" ," sMOVEX%+92, Y3+H: PRINT" ,": NEXT 

2048 PROCPIC:ENDPROC 

2050 : 

2060 DEFPROCq:GCOLG, @:MOVEX%+32, Y$+224 
:MOVEX$+32 ,Y$+128: PLOT85 ,X3+96,Y%+224:M 
OVEX$+112,Y%+224: PLOT85 ,X8+112,Y%+1 76:M 
OVEX%+84, Y$+192: DRAWX$+72 , Y$+168 sMOVEXS 
+164, Y%+168: DRAWX3+92 , Y$+192: DRAWX3+96, 
Y3+148: DRAWX3+84 ,Y3+148 

2878 GCOLG,1:MOVEX$+92, Y3+14@: DRAWX$+7 
6, Y$+140:MOVEX3+56 , Y$+224 sMOVEXS+72, Y3+ 
224: PLOT85 ,X$+32,Y%+16G:PLOT85 , X3+32,Y$ 
+128 :MOVEX$+48 , Y$+128: PLOT85, X$+32, Y$+3 
2: PLOP85 ,X3+48, Y$+32 

2088 FORH=48TO64STEP8 :MOVEX$+H, Y$+32:D 
RAWX$+H+32 , Y$+96: NEXT :MOVEX3+96 , Y3+1 28: 
MOVEX$+64 , Y$+128: PLOT85 , X3+128,Y%+112:P 
LOT85 ,X$+128,Y$+32 

2698 GCOLG, @:MOVEX3+48, Y$+112: PRINT"*" 
t:MOVEX$+8@ , Y$+64: PRINT"*" sMOVEXS+96 , Y3+ 
128 :MOVEX$+112,Y%$+64: PLOT85 , X$+128,Y3+1 
12:3 PROCPIC: ENDPROC 

2108 : 

2118 DEFPROCb:GCOLG, 1: FORC$=40T0244STE 
P20: FORWS=1 2TO1 28STEP2G :MOVEX3+W3 , YS4+C3 
: PRINT" #": NEXT, : ENDPROC 

2128 : 

2138 DEFPROCshu:VDU4: PRINTTAB(1,3@) ;"I 
'm shuffling "3 VDU5: IFG3>@ GOTO2170 

2148 DIMP(52) 

2158 FORT$=1T052 

2166 P(T%)=T$:NEXT 

2178 FORC3=1 TO 52 

2188 dummy=P (C%) 

2198 newplace=RND (52) 

2206 P(C%)=P(newplace) 
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2216 P(newplace) =dumny 

2226 NEXT 

2238 ENDPROC 

2248 : 

2258 DEFPROCp 

2260 IFD$=1X%=160:Y$=192 

2276 IFD%=2Y%=640:X%=1 60 

2288 IFD$=3X$=348:Y%=192 

2298 IFD%=4Y$=640:X%=348 

2308 IFDS=5X%=576 

2310 IFD$=6X%=784 

2326 IFD%=7X%=992 

2336 IFD%=8X%=166 

2348 IFD%=9X%=348 

2358 IFD%=16X3=576 

2366 IFD%=11X%=784 

2378 IFD$=12X3=992 

238G IFD%>4 ANDD%<8 Y%=192 

2398 IFD%>7 Y3=640 

2406 ENDPROC 

2418 : 

2420 DEFPROCscore 

2430 QS=N(1)+N(3)+N(5)+N(6)+N(7) : IFa=T 
RUE ANDQ$<12 Q%=Q3+18 

2446 IFQ$>21PROCm("BUST!") :D$=12:Q%=6: 
bust=TRUE: ENDPROC 

2458 IFD%=4 ANDN(1)=1 ANDB(3)>1@ p=TRUE 
2460 IFD%=4 ANDN(3)=1 ANDB(1)>1@ p=TRUE 

247@ IFN(7)>@ PROCm("5 CARD TRICK") :EN 
DPROC 

2480 IF w=TRUE AND Q%>15 PROCm("STICK 
or TWIST?")ELSE IF w=TRUE PROGn("TWIST? 
")ELSE IF Q3>15 PROCm("STICK, TWIST, BET? 
") ELSE PROGn("TWIST or BET?") 

2498 REPEAT 

2508 A%=GET 

2516 UNTILA%=83 ORA%=84 ORA%=89 ORAS=66 
2520 IF w=TRUE ANDA%=66 GOTO2490 

25308 IFA3=83 AND Q3>15 D%$=7:PROGn("YOU 
STICK") sENDPROC ELSE IF A%=83 VDU 7:GO0 
T02430 

2540 IFA%=84 OR A%=89 w=TRUE: PROCm("TW 
IST") : ENDPROC 

2550 IFA%=66 PROCbet : ENDPROC 

2560 : 

2578 DEFPROCbank 

2580 IFN(2)=1 ORN(4)=] b=TRUE 

2598 IFD%>7 ANDN%=1 b=TRUE 

2600 RS=N(2)+N(4)+N(1G)+N(11)+N(12) 2 IF 
b=TRUE ANDR$<12 RS=R3+10 

2618 IFD$=9 ANDN(2)=1 ANDB(4)>18 Q%=6: 
bpon=TRUE: D$=1 2: ENDPROC 

2620 IFD%=9ANDN(4)=1 ANDB(2)>19 Q%=G:b 
pon=TRUE: D%=1 2: ENDPROC 

2638 IFp ANDNOTbpon PROCm("PAY PONLOUN 
1") :D$=12: ENDPROC 

2649 IFR$>21PROCm("DEALER'S BUST") :D3= 
12:R=@0: ENDPROC 

2650 IFR%$<17 ANDD%=11 ANDN(7)>@ ENDPROC 
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2668 IFR&<17 ANDRND(1)>.5 AND w=TRUE:I1 
FN(6)>@ ORN(5)>@ ENDPROC 

2670 IFR%=21 ANDNOTp AND N(7)=@ D3=12: 
ENDPROC 

2680 IFR$>15 PROCm("BANK STICKS!") :VDU 
4: PRINT; "PAY"; R$+1 : VDUS:D$=1 2: ENDPROC 
2698 ENDPROC 

2708 : 

2718 DEFPROCr : PROCW 

2720 IF Q%>21 OR Q$=0 I%=0:PROC]1:ENDPR 
OC 

2730 IFN(12)>@ AND NOT p I%=@:PROC1:EN 
DPROC 

2748 IFN(7)>@ ANDNOTbpon H%=H%+(1%*3) 
: PROCV: ENDPROC 

2758 IFR%=21 ANDNOTp ANDN(7)=@ PROCm(" 
SORRY !") : I1$=@: PROC] : ENDPROC 

2768 IFp H$=H$+(I%$*4) : PROCV: ENDPROC 


2770 IFQ$>R$ H$=H$+ (1$*2) : PROCV: ENDPROC 


2788 IFQ%<R&+1 PROC]: ENDPROC 

2798 : 

2800 DEFPROCrep 

2816 FORC3=1TOPS 

2826 P(53-C$) =L(C3) 

2836 NEXT: ENDPROC 

2840 : 

2858 DEFPROCbet 

2869 PROGn("YOUR BET?") 

2876 B%=GET: IFB3<490RB%>57GOTO2878 
2888 IFD$>3 AND B&>FSGOTO2860 

2890 IFB%-48>HS PROCm("SILLY!") : PROCw: 
GOTO2859 


2900 FS=BS 

2918 BS=B%-48: I$=I$+B$: PROCI : PROCIi2 

2926 H$=H$-B$%: PROCm (STRINGS (15,CHR$32) ) 

2938 ENDPROC 

2948 : 

2958 DEFPROCm (MS) : PROCw: VDU4: PRINTTAB ( 
22,3) ;SPC(17) : PRINTTAB (22, 30) ;MS;:VDUS 
: ENDPROC 

2966 : 

2978 DEFPROCw:FORC$=1TO500@: NEXT: ENDPR 
o 

2986 : 

2998 DEFPROCki 

30066 VDU4: PRINTTAB(1,38);"You have "H%; 
" pound"; :IFH$>1PRINT;"s ":VDU5:ENDPROC 

3019 : 

3828 DEFPROCi:VDU5:GCOLG, 2: FORC$=4898TO 
800 STEP32:MOVEC$, 512: PRINTCHRS (229) :NE 
XT 

3630 ENDPROC 

3048 : 

3850 DEFPROCi2:GCOLO,9:MOVE48@ ,512:VDU 
5:PRINT;1%$;" Pound";:IFI$>1 PRINT;"s":V 
DU4 

3868 ENDPROC 

3078 : 

3086 DEFPROCV:SOUND1,3,197,4:ENDPROC 

3098 : 

3198 DEFPROC1:SOUND1,3,33,4: ENDPROC 
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THE HANGING 'ELSE' PROBLEM - A.Williams 
Nesting of 


spaced out a bit for clarity): 


IF THEN ELSE statements can give rise to ambiguities and therefore, 
unexpected results. A contrived example follows 


in this piece of program (it's 


10 IF TRUE=FALSE THEN IF TRUE=TRUE THEN PRINT"1" 


ELSE PRINT"3" 


You might expect the result to be "3" but the Electron prints "2". 


ELSE PRINT"2" 


This is because 


the Basic interpreter in the Electron searches for the next occurrence.of an 'ELSE' 


after the evaluation of 'TRUE=FALSE' 


(which of course is 'FALSE'). The first one 


that it comes across is the wrong one in effect. @ 


PROGRAMMING CAPS LOCK MODE - R.Lambley 


To ensure that the CAPS LOCK mode is selected before an answer is required from 


the keyboard add the *FX282,32 command to a line before inputting anything. In this 
way you would only have to check the input against capitals to verify that it was 
correct. For example: 

108 *FX202,32 

11@ REPEAT INPUTTAB(5,16)"Do you want instructions (Y/N) ?"reply$ 

128 UNTIL reply$<>"" 

130 IF replyS="Y" THEN PROCinstructions 
Line 138 does not have to check for a lower case 'y' as well an upper case 'Y'. & 
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BACK _ISSUES_AND SUBSCRIPTIONS 


BACK ISSUES (Members only) SUBSCRIPTIONS 


All back issues will be kept in print Send all applications for membership, 
(from November 1983). Send 90p per and subscription queries to the 
issue PLUS an AS SAE to the subscriptions address. 
subscriptions address. Back copies of 
BEEBUG are available to ELBUG members MEMBERSHIP COSTS: 
at this same price. This offer is for U.K. 
members only, so it is ESSENTIAL to £5.98 for 6 months (5 issues) 
quote your membership number with your £9.98 for 1 year (10 issues) 
order. Please note that the advertising Eire and Europe 
supplements are not supplied with back Membership £16 for one year. 
issues. Middle East £19 
Americas and Africa £21 
Subscription and Software Address Elsewhere £23 
Payments in Sterling preferred. 
ELBUG SOFTWARE (Members only) 
PO BOX 109 ice : 
a This is available from the software 
address. 


MAGAZINE CONTRIBUTIONS 
AND TECHNICAL QUERIES 


Please send all contributions and 

technical queries to the editorial Editorial Address 

address opposite. All contributions 

published in the magazine will be paid 

for at the rate of £25 per page. ELBUG 
PO Box 5¢@ 

We will also pay £10 for the best Hint St Albans 

or Tip that we publish, and £5 to the Herts 

next best. Please send all editorial 

material to the editorial address 

opposite. If you require a reply it is 

essential to quote your membership 

number and enclose an SAE. 


ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 
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Thanks are due to Sheridan Williams, and Adrien Calcraft for assistance with this 
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All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications 
Limited. BEEBUG Publications LTD (c) 1984. 
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4% 
perso Snake 


\'@ Snake 1S a very addictive, fast This game is much more exciting than 
moving arcade ga The purpose of the many gay A similar nature, and 
game 1s to direct the snake around the nce ed, proves to be surprisingly 
screen, eating the randomly placed 
objects. With every bite that it takes, 
the tail grows lonyer and the snake 


moves faster. Just to complicate 
things, there are also certain 
scattered obstacles wnich must be 


avoided, 

To even complete the first screen 
requires skill and concentration. 
Further frames use different shaped 
playing areas, which as well as addiny 
variety, require much yreater skill to 
complete. 

ce i ss cs ee ee ee 
Snake costs £4.00 inc VAT. Please add 5¥p post & packing. 
Overseas orders: £5.5¥ inc post & packing - VAT not charged. 
Send order with membership number to: 
BEEBUGSOFT, P.O. Box 109, High Wycombe, Bucks @ 
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THE BEST OF ELBUG 
ON CASSETTE 


Many of the best programs published in ELBUG have been collected together and 
published by Penguin Books under the name "Games and other programs for the Acorn 
Electron" at £3.95. This book is part of the Penguin Acorn Computer Library and at 
present there is just one other title available though others are planned. 


There are 28 programs in all in four different categories: 


Action Games — ———— 
Munch-Man Mars Lander Invasion Games 

Y and other programs 
Robot Attack Hedgehog Peahsea ye tond 


Thought games | 


Higher/Lower Five-Dice . Life 
Anagrams Return of the Diamond 


Visual Displays | 


Union Jack Square Dance Ellipto 
Screenplay 3-D Rotation 
Utilities 


Sound Wizard Bad Program Lister | 
3-D Lettering Bad Program Rescue 
Double@ Height Text ——. ae | 


__PENGAIN ACORN COMPUTER DGMARY 
OUTER ENA 


All 2@ programs are now available on cassette from our software address {in High 
Wycombe) price £7 to members and £9 to non-members, plus 5@p post & ‘packing in 
either case. 
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ELBUG MAGAZINE CASSETTE 


To save wear and tear on fingers and brain, we offer, each month, a 
cassette of the programs featured in the latest edition of ELBUG. The first 
program on each tape is a menu program, detailing the tape's contents, and 
allowing the selection of individual programs. The tapes are produced to a 
high technical standard by the process used for the BEEBUGSOFT range of 
titles. 


Magazine cassettes have been produced for each issue of ELBUG from Volume 1 
Number 1 onwards and are all available from stock, priced £3.00 each 
inclusive of VAT. See below for ordering information. 


ELBUG MAGAZINE CASSETTE JULY 1984 


This month's cassette (Vol.1 no.8) includes: 

The Flowers of Hell game, Disco Lights Display, automatic Cassette Indexer, 
the classic Breakout game for the Electron, Graphics Example (on 
manipulating colours), a useful Program Protection routine, and a colourful 
version of the Pontoon card game. 


MAGAZINE CASSETTE SUBSCRIPTION 


We are also able to offer ELBUG members subscription to the magazine 
cassette, this gives the added advantage of receiving the cassette at around 
the same time as the magazine each month. Subscriptions may either be for a 
period of 1 year or 6 months, however for an introductory period we are also 
offering a trial 3 months subscription. (NOTE Magazine cassettes are 
produced 19 times each year). 


If required, subscriptions may be backdated as far as Volume 1 Number 1, so 
when applying please write to the address below quoting your membership 
number and the issue from which you would like your subscription to start. 


MAGAZINE CASSETTE ORDERING INFORMATION 


Individual ELBUG Magazine Cassettes £ 3.06 

P & P: Please add 5@p for the first and 3@p for each subsequent cassette. 
Overseas orders: Calculate the UK price including post, then deduct 15% VAT 
and add £1 per item. 


Magazine Cassette Subscription 

1 YEAR (16 issues) £33.00 Incl..........0'SEAS £39.08 No VAT payable 
6 MONTHS( 5 issues) £17.00 Incl..........0'SEAS £20.08 No VAT payable 
3 MONTHS( 3 issues) £10.00 Incl..........O'SEAS £13.98 No VAT payable 


Please be sure to specify that you require subscription to the ELBUG 
magazine cassette, and enclose your membersip number with a cheque made 
Payable to BEEBUGSOFT. 

Send to.. 

ELBUG Magazine Cassette, BEEBUGSOFT, PO Box 189, High Wycombe, HP1@ 8HQ. 
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